Copiar columnas

hola, Antonio !

... copiar en una hoja nueva una serie de columnas de la hoja activa.
... si tengo las columnas de la A a la W con datos... quiero la A, la F y la D, en una hoja nueva
... necesito hacerlo con un click o atajo de teclado.

una macro +/- como la siguiente, asignada a algun objeto [shape, boton, etc.] o atajo de teclado...
[suponiendo que deseas copiar DESDE la fila 1 de las 3 columnas: A, D, F]
Sub Copiar_ADF_HojaNueva()
Application.ScreenUpdating = False
Dim n_Filas As Long
With ActiveSheet: .UsedRange
n_Filas = .UsedRange.Rows.Count
.Range("a1:a" & n_Filas & ",d1:d" & n_Filas & ",f1:f" & n_Filas).Copy _
Worksheets.Add(After:=Worksheets(.Name)).Range("a1"): .Activate
End With
End Sub

probablemente necesitaras metodos 'alternos' para 'detectar' la ultima fila 'real' de la hoja activa -?-
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.