Colar por CommandBoton

Olá
Tengo una duda que quissaz me podereis aclarar, és lo seguiente:
Tengo una hoja con entradas en las colunas A;B;C e D e un códogo que va
premitir copiar la fila onde una celda está seleccionada para la otra hoja.
El vcódigo és este.
_________________________________
Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy Destination:= _
Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
End Sub
__________________________________
Funciona prefecto pero lo que yo pretendia seria que el código en vez de
copiar toda la fila, me copie e pegue solo detrminads celdas de la misma
fila. És decir pretendia que copie e cole solo las celdas de las colunas
A;B;D e D en la otra hoja.
PS: perdon mi espanhol
Muchas Gracias