Como copiar un rango a otra hoja

Hola me podrias ayudar es que quiero copiar un rango por ejemplo de A1:G21 tengo unos datos ahi (datos de cliente) como entenderas cambio los datos dependiente el cliente y quisiera guardar esos a otra hoja (los datos que tengo en la pantalla al momento que decido copiar para que se guarden en otra hoja ) y quisieras que esos datos en la otra hoja por ejemplo en una hojax que se pegaran A1:21 ASI quedan los datos copiado un decir y si despues me decido copiar mas (de otro cliente) quiero que se pegan abajo de los datos ya copiado, como por ejemplo que se pegan siguiente datos en la A23:G23.
Me pasaron una macro similar pero no pegan los datos abajo de los ya pegado te lo dejo no se a la mejor se puede mejorar.
?Public Sub CopiarValores()
Selection.Copy
Worksheets("Hoja4").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
espero que haya solucio a mi pregunta, gracias por tu atencion