Excel - copiar celdas activas a otra hoja

hola no tengo mucha conocimiento en esto y ya busque por todo google.
pero estoy tratando de que me copie las celdas activas pero me copia todo como tengo que hacer muchas gracias.
Range("H2", Range("P18").End(xlDown)).Select 'seleciona desde A2 hacia abajo

Range("H2", Range("P18").End(xlToRight)).Select 'selecciona desde A2 hacia la derecha

'copia pedido

Range("H2:P18").Select
Selection.Copy

'pega pedido
Range("R2:Z18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'pega pedido en listado de ventas

Selection.Copy
Sheets("LISTADO DE VENTAS").Select
ActiveWindow.SmallScroll Down:=-9
Range("A2").Select
Selection.Insert Shift:=xlDown

Acabo de leer tu inquietud Vanesa, no lo tengo tan claro lo que necesitas pero puede que te ayude este codigo en algo.

Sub AyudaCopia()
' Activamos la Hoja1 y copia la seleccion actual

Worksheets("Hoja1").Activate
ActiveCell.CurrentRegion.Select
Selection.Copy

' Selecciona la celda A2 y copiamos la selccion anterior

Range("A10:A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub