I do not know to write a macro, I recorded a macro to create the following code, but I have difficulty to make it loop and moving down one raw after each cycle.
As the code below it repeats itself. It will be so helpful to have way to repeat the code for a specified number of rows in Tumor without physically repeating the code. I have about 421 iterations.
I am hoping to have guidance and help. I am hoping to learn. Thank you
Tea
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets ("Tumor").Select
Range("A2:C2").Select
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tumor").Select
Range("A5:C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A6:C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
I much appreciate any help.
Thank you again
As the code below it repeats itself. It will be so helpful to have way to repeat the code for a specified number of rows in Tumor without physically repeating the code. I have about 421 iterations.
I am hoping to have guidance and help. I am hoping to learn. Thank you
Tea
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets ("Tumor").Select
Range("A2:C2").Select
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tumor").Select
Range("A5:C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets ("Tumor").Select
Range("A6:C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Calculation").Select
Range("G2").Select
ActiveSheet.Paste
Range("P2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tumor").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
I much appreciate any help.
Thank you again