VBA Loop

[Davebro]

I am still learning VBA and do not know how to make a loop for the following. This copies a cell and pastes it.

Sub Time()
'
' Macro TIme
'

'
ActiveCell.Select
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1:A11").Select
ActiveSheet.Paste
ActiveCell.Offset(11, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1:A11").Select
ActiveSheet.Paste
ActiveCell.Offset(11, 1).Range("A1").Select
End Sub

 

[James006]

Hi,
Could you describe in plain English what you want to achieve ...

 

[Davebro]

Hi, I want to copy the contents of cell B2 to A2 to A11
then go to B13 and copy contents to B13 to B22
and repeat down the column.

 

[James006]

Just to clarify ... you mean:
Copy B2 to A2:A11
Copy B13 to A13:A22
Copy B24 to A24:A33
till the very last cell in column B ...

Is that right ?

 

[Davebro]

Yes that seems to be it