Hi, could someone know how to simplify into a loop? using For i = 1 To 4? it is just a sample, total number would until 59 .Thank you
VBA Code:
Sub Macro()
' Range("K3").Select
ActiveCell.FormulaR1C1 = "1"
Range("G5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CrossMult_Validation").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("llustration").Select
Range("K3").Select
ActiveCell.FormulaR1C1 = "2"
Range("G5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CrossMult_Validation").Select
Range("C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("llustration").Select
Range("K3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "3"
Range("G5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CrossMult_Validation").Select
Range("D14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("llustration").Select
Range("K3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "4"
Range("G5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CrossMult_Validation").Select
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Last edited by a moderator: