Hello, i have programmed this code but I find it very large!!
Can someone shorten this code for me please!!?
thanks
Can someone shorten this code for me please!!?
Code:
For i = 1 To 19 Select Case i
Case 1: CopyRngF = "E11:J": CopyRngT = "E11"
Case 2: CopyRngF = "M11:AQ": CopyRngT = "M11"
Case 3: CopyRngF = "BD11:CE": CopyRngT = "BD11"
Case 4: CopyRngF = "CS11:DW": CopyRngT = "CS11"
Case 5: CopyRngF = "EJ11:FM": CopyRngT = "EJ11"
Case 6: CopyRngF = "FZ11:HD": CopyRngT = "FZ11"
Case 7: CopyRngF = "HQ11:IT": CopyRngT = "HQ11"
Case 8: CopyRngF = "JG11:KK": CopyRngT = "JG11"
Case 9: CopyRngF = "KX11:MB": CopyRngT = "KX11"
Case 10: CopyRngF = "MO11:NR": CopyRngT = "MO11"
Case 11: CopyRngF = "OE11:PI": CopyRngT = "OE11"
Case 12: CopyRngF = "PV11:QY": CopyRngT = "PV11"
Case 13: CopyRngF = "RL11:SP": CopyRngT = "RL11"
Case 14: CopyRngF = "TA11:TA": CopyRngT = "TA11"
Case 15: CopyRngF = "TL11:TM": CopyRngT = "TM11"
Case 16: CopyRngF = "TP11:TW": CopyRngT = "TQ11"
Case 17: CopyRngF = "UA11:UB": CopyRngT = "UB11"
Case 18: CopyRngF = "UD11:UP": CopyRngT = "UE11"
Case 19: CopyRngF = "UR11:UR": CopyRngT = "US11"
End Select
wsCopyFrom.Range(CopyRngF & 38).Copy
wsCopyTo.Range(CopyRngT).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i
thanks