Macro que pegue datos en distintas columnas

Dante Amor:tengo esta macro que copia y pega a continuación del ultimo dato que "pego";podrás modificar esta misma macro pero que en vez de a continuación en filas, ¿lo haga en las columnas subsiguientes? Gracias

'*******copia la semana en la otra hoja
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h1 = Sheets("stock")
    Set H2 = Sheets("Hoja1")
    'h2.Cells.Clear
    ' aca indico desde que fila empieza a "pegar"
    u2 = H2.Range("A" & Rows.Count).End(xlUp).Row + 4
    If u2 < 5 Then u = 5
    fini = 8
    ffin = 8
    fmed = 8
    existe = False
    Do While InStr(1, h1.Cells(ffin, "B"), "TOTAL") = 0
        If h1.Cells(ffin, "A") = "" And existe = False Then
            fmed = ffin - 1
            existe = True
        End If
        ffin = ffin + 1
    Loop
    ' acá indico desde donde empieza a "copiar"
    h1.Range("b4:c" & fmed).Copy
    H2.Range("A" & u2).PasteSpecial xlValues
    H2.Range("A" & u2).PasteSpecial xlFormats
    u2 = H2.Range("A" & Rows.Count).End(xlUp).Row + 1
    ' aca indico hasta que columna "pega"
    h1.Range("A" & ffin & ":c" & ffin).Copy
    H2.Range("A" & u2).PasteSpecial xlValues
    H2.Range("A" & u2).PasteSpecial xlFormats
    H2.Range("A" & u2).PasteSpecial xlPasteColumnWidths
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Semana copiada"
'
End Sub