creating a loop for a macro

[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

 

[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