Copiar y pegar

Hola a todos

tengo una consulta

de que forma puedo copia y pegar lo que se encuentra en una hoja hacia otra
por medio de código

tengo el siguiente código que quise modificar pero no puedo

sub CopiarDatos()

Dim Inicial As Integer, Incremento As Integer, Bajar As Integer, DatoBase
As String, _
Copiar_De As Variant, Copiar_A As Variant, Sig As Integer
Application.ScreenUpdating = False
Inicial = 3 ' Para la fila "inicial" a donde copiar en la hoja "Cheques" '
Incremento = 1 ' Para las filas de avance" en cada "ciclo" '
'Bajar = Application.CountA(Sheets("Cheques").Range("a" &
Inicial).CurrentRegion.Rows) ''modificacion1
With Sheets("Cheques")
Bajar = .Range("a" & Inicial).CurrentRegion.Rows.Count - 3 + (1 *
IsEmpty(.Range("a" & Inicial)))
End With
Copiar_De = Array("g9:i9", "c11:g11", "h11:h11", "f20:f20", "c24:g28",
"h28:j28")
DatoBase = "a" & Inicial 'inicia la copia
For Sig = 1 To UBound(Copiar_De): DatoBase = DatoBase & ",a" & Inicial +
(Incremento * Sig): Next
ReDim Copiar_A(UBound(Copiar_De) + 1)
For Sig = 0 To UBound(Copiar_De): Copiar_A(Sig) = "a" & Inicial +
(Incremento * Sig): Next 'inicia pegar
Sheets("POLIZA-CP 1013 pcform").Range("G9").Copy
Sheets("Cheques").Range(DatoBase).Offset(Bajar, 0)
For Sig = 0 To UBound(Copiar_De)
Sheets("POLIZA-CP 1013 pcform").Range(Copiar_De(Sig)).Copy
Sheets("Cheques").Range(Copiar_A(Sig)).Offset(Bajar, 0).PasteSpecial
Paste:=xlValues
Next: Application.CutCopyMode = False
End Sub

quiero copiar los datos "g9:i9", "c11:g11", "h11:h11", "f20:f20",
"c24:g28", "h28:j28" de la hoja ("POLIZA-CP 1013 pcform")
ha la hoja ("Cheques").lo de de g9:i9 que caiga en la celda (A3) lo de
c11:g11 en (B3) lo de h11:h11 en (C3) lo de f20:f20 en (D20) y lo de
c:24:j28 en (E3)


por su ayuda gracias

Un saludo,
Daniel