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

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.
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

P
  • Solved
Counter in For Each loop
Replies
2
Views
200
Possum17
P
P
  • Solved
Need help with macro Dynamic Range??
Replies
6
Views
176
pennbowl
P
A
  • Question
Macro to update list to last row on another sheet copy source from multiple sheets
Replies
0
Views
313
Azamamir
A
excelbytes
  • Solved
VBA Code To Copy Data Into Next Blank Column
Replies
5
Views
81
mumps
mumps
D
  • Question
VBA optimization advice
Replies
3
Views
103
bobsan42
bobsan42

Forum statistics

Threads
1,215,079
Messages
6,123,005
Members
449,092
Latest member
masterms

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