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

willow1985
  • Solved
VBA Run-time error 91 - Object variable or With block variable not set when trying to refresh data/Sleep
Replies
4
Views
244
willow1985
willow1985
K
  • Question Question
Increasing row before the macro runs again
Replies
1
Views
185
kbk
K
brent3162
  • Solved
VBA help with increasing row before macro runs again.
Replies
3
Views
343
jolivanes
jolivanes
C
  • Question Question
Please help clean up my convoluted VBA code. It seems very redundant and repetitive.
Replies
1
Views
419
myall_blues
myall_blues
F
  • Solved
How to make loop stop when the cell is empty? (VBA)
Replies
3
Views
281
kvsrinivasamurthy
K

Forum statistics

Threads
1,223,227
Messages
6,170,848
Members
452,361
Latest member
d3ad3y3

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