Este fórum está sendo desativado

[LLkameoka]

O usuário digitaria um numero em uma célula e a macro irá pegar um bloco de celulas, C2:I5 , e esse bloco vai para a coluna ao lado, mantendo a formatação. por exemplo, o usuário digita 2, então a macro irá gerar 2 blocos desses, mantendo a formatação.

[alexandrevba]

Bom dia!!

Tente assim

Código: Selecionar todos

Sub Ntimes()
Dim iCont As Integer

iCont = Application.InputBox("Number of Rows", "Number of Rows", Type:=1)
Do While iCont <> 0
    Call AleVBA_3230
iCont = iCont - 1
Loop

End Sub

Código: Selecionar todos

Sub AleVBA_3230()
Dim iCont As Integer
Dim LC As Long

LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Range("C1:I4").Copy
    Cells(1, LC + 1).Offset(0, 1).PasteSpecial (xlPasteAll)

End Sub

Att