Seleccionar varias filas discontinuas de una hoja y pegar en otro libro

Sub copiar()
'
' copiar Macro
'

'
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Rem lo anterior copia solo las celdas visibles
Rem seleccionamos la hoja y celda donde deseamos pegar
Sheets("Hoja4").Select
Range("A1").Select
Rem le indicamos que hacemos un pegado espacial que solo sean valores
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
End Sub

Excelente¡ Muchas gracias, pero me apareció otro problema, puse la macro en un botón de comando que tengo sobre la lista, y al filtrar, se me desaparece el botón, y si lo coloco en la parte de arriba y quiero regresar mi lista a que se vea todo, me alarga el botón al tamaño de la lista.. ¿cómo hago para que el botón no se vea afectado si oculto filas o columnas=? ¡ Gracias

Hola¡¡ al aplicarlo solo me funciona para copiar a partir de la celda A1, pero si le defino otra celda digamos la D1, no me compila. y si quiero que lo copiado no lo copie a partir de la primera columna primera fila, si no digamos a partir de la celda (G4).