I could use Help with a loop that I am doing Manually. I struggle with the loops.

J

JmanSchu55

New Member
Joined
Mar 4, 2022
Messages
6
Office Version
  1. 365
Platform
  1. Windows
This works, but would love to not have to expand it every time I run into data that goes Beyond. Any Help is appreciated

Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("J5:J70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("M5:M70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("P5:P70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("S5:S70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("V5:V70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("Y5:Y70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AB5:AB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AE5:AE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AH5:AH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AK5:AK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AN5:AN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AQ5:AQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AT5:AT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AW5:AW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AZ5:AZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GC5:BC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GF5:BF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GI5:BI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GL5:BL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GO5:BO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GR5:BR70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GU5:BU70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GX5:BX70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CA5:CA70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CD5:CD70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CG5:CG70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CJ5:CJ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CM5:CM70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CP5:CP70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CS5:CS70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CV5:CV70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CY5:CY70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DB5:DB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DE5:DE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DH5:DH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DK5:DK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DN5:DN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DQ5:DQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DT5:DT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DW5:DW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DZ5:DZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EC5:EC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EF5:EF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EI5:EI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EL5:EL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EO5:EO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("ER5:ER70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EU5:EU70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EX5:EX70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'Added
Sheets("Sheet1").Select
Range("FA5:FA70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G52").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FD5:FD70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FG5:FG70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FJ5:FJ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G55").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FM5:FM70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FP5:FP70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FS5:FS70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G58").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FV5:FV70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FY5:FY70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GB5:GB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GE5:GE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GH5:GH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GK5:GK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G64").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GN5:GN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G65").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GQ5:GQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G66").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GT5:GT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GW5:GW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G68").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GZ5:GZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HC5:HC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G70").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HF5:HF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HI5:HI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G72").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HL5:HL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G73").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HO5:HO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G74").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HR5:HR70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
 

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.
Sort by date Sort by votes
JmanSchu55 said:
This works, but would love to not have to expand it every time I run into data that goes Beyond. Any Help is appreciated

Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("J5:J70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("M5:M70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("P5:P70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("S5:S70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("V5:V70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("Y5:Y70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AB5:AB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AE5:AE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AH5:AH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AK5:AK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AN5:AN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AQ5:AQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AT5:AT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AW5:AW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("AZ5:AZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GC5:BC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GF5:BF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GI5:BI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GL5:BL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GO5:BO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GR5:BR70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GU5:BU70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GX5:BX70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CA5:CA70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CD5:CD70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CG5:CG70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CJ5:CJ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CM5:CM70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CP5:CP70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CS5:CS70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CV5:CV70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("CY5:CY70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DB5:DB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DE5:DE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DH5:DH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DK5:DK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DN5:DN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DQ5:DQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DT5:DT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DW5:DW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("DZ5:DZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EC5:EC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EF5:EF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EI5:EI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G46").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EL5:EL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EO5:EO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("ER5:ER70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EU5:EU70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("EX5:EX70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'Added
Sheets("Sheet1").Select
Range("FA5:FA70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G52").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FD5:FD70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G53").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FG5:FG70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FJ5:FJ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G55").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FM5:FM70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FP5:FP70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FS5:FS70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G58").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FV5:FV70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("FY5:FY70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GB5:GB70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GE5:GE70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GH5:GH70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GK5:GK70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G64").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GN5:GN70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G65").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GQ5:GQ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G66").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GT5:GT70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GW5:GW70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G68").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("GZ5:GZ70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HC5:HC70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G70").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HF5:HF70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HI5:HI70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G72").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HL5:HL70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G73").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HO5:HO70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G74").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet1").Select
Range("HR5:HR70").Select
Selection.Copy
Sheets("Sheet3").Select
Range("G75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Click to expand...

Try this on a copy of your workbook.

To copy an additional column just change this line :

For i = 1 To 74

VBA Code: 
Public Sub subCopyAndPaste()
Dim rngCopy As Range
Dim i As Integer
Dim rngDestination As Range

    ActiveWorkbook.Save
    
    ' Set the initial copy and destination ranges.
    Set rngCopy = Worksheets("Sheet1").Range("G5:G70")
    Set rngDestination = Worksheets("Sheet3").Range("G2")
    
    ' Loop 74 times.
    For i = 1 To 74
           
        rngCopy.Copy
        rngDestination.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        
        ' Reset the copy from and destination ranges.
        ' Offset the copy from range by 3 columns.
        Set rngCopy = rngCopy.Offset(0, 3)
        
        ' Offset the destination range by 1 row.
        Set rngDestination = rngDestination.Offset(1, 0)
        
    Next i
    
    ActiveWorkbook.Save
    
    MsgBox "Data copied and transposed.", vbOKOnly, "Confirmation"

End Sub
 
Upvote 0
Try this:

VBA Code: 
Sub new_loop()
  Dim i As Long, j As Long
 
  i = 3
  For j = 10 To Range("HR1").Column Step 3
    Sheets("Sheet3").Range("G" & i).Resize(1, 66).Value = Application.Transpose(Sheets("Sheet1").Cells(5, j).Resize(66).Value)
    i = i + 1
  Next
End Sub

Note Code Tag:
In future please use code tags when posting code.​
How to Post Your VBA Code it makes your code easier to read and copy and it also maintains VBA formatting.​

Regards
Dante Amor
 
Upvote 0
You must log in or register to reply here.

Similar threads

willow1985
  • Solved
VBA Run-time error 91 - Object variable or With block variable not set when trying to refresh data/Sleep
Replies
4
Views
280
willow1985
willow1985
K
  • Question Question
Increasing row before the macro runs again
Replies
1
Views
211
kbk
K
brent3162
  • Solved
VBA help with increasing row before macro runs again.
Replies
3
Views
363
jolivanes
jolivanes
J
  • Solved
Continuous Copy and paste
2
Replies
10
Views
180
Joe4
Joe4
N
  • Question Question
Adding to an existing MACRO
Replies
2
Views
103
Northern NY Design
N

Forum statistics

Threads
1,223,885
Messages
6,175,178
Members
452,615
Latest member
bogeys2birdies

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top