creating a loop for a macro

P

Pete

Hi,

This is my first macro i have created! I need to loop the below untill there
is no longer anything in the cells. Anyone got any ideas?

Range("C2:C14").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C15:C27").Select
Selection.Copy
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C28:C40").Select
Selection.Copy
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C41:C53").Select
Selection.Copy
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C54:C66").Select
Selection.Copy
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C67:C79").Select
Selection.Copy
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C80:C92").Select
Selection.Copy
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("C93:C105").Select
Selection.Copy
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

Hope you can help

Pete
 
T

tina

suggest you post your question to an Excel newsgroup. this ng answers
questions about using macros in MS Access databas software, which are very
different than macros in Excel.

hth
 
Top