Hey guys thanks for the answers, Im gonna be completely honest, I just started with macros and dont have much of an idea. What i did was copy and pasted what Joe posted replacing everything i had there so now it looks like this .....
Sub Macro35()
'
Dim i As Long
For i = 1 To 13
Range(Cells((i * 4) + 14, "B"), Cells((i * 4) + 16, "F")).Copy
Cells((i * 7) + 57, "B").PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Next i
End Sub
think i might have done something wrong (copied above is all the info on that macro i might be missing some formating on it ) but it only copied it once,I probably did something wrong, as for your question RICK, idont know how to describe it but I did make a macro, so this is what I could like it to do, without having to write it over and over again. I might not be explaining myself very well.
Sub Macro4()
'
' Macro4 Macro
'
'
Range("B18:F20").Select
Selection.Copy
Range("B64").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B22:F24").Select
Application.CutCopyMode = False
Selection.Copy
Range("B70").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B26:F28").Select
Application.CutCopyMode = False
Selection.Copy
Range("B76").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B30:F32").Select
Application.CutCopyMode = False
Selection.Copy
Range("B82").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B34:F36").Select
Application.CutCopyMode = False
Selection.Copy
Range("B88").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B38:F40").Select
Application.CutCopyMode = False
Selection.Copy
Range("B94").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B42:F44").Select
Application.CutCopyMode = False
Selection.Copy
Range("B100").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B46:F48").Select
Application.CutCopyMode = False
Selection.Copy
Range("B106").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B50:F52").Select
Application.CutCopyMode = False
Selection.Copy
Range("B112").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B54:F56").Select
Application.CutCopyMode = False
Selection.Copy
Range("B118").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("B58:F60").Select
Application.CutCopyMode = False
Selection.Copy
Range("B124").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub
Thanks for the answers guys !