Hi there, I'm new to Macros and am trying to set up a for loop between two worksheets. I have been able to create a macro that reads the first row of data but I want the macro to continue running down the next 149 rows of data using offset but can't figure it out. Any help is appreciated! I have included the code of the macro for the first row. I recorded copying and pasting between the worksheets to create the macro but if there is a better way to run it that would be helpful also!
VBA Code:
Sub Macro1()
Range("B2").Select
Selection.Copy
Sheets("Analysis").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Analysis").Select
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Analysis").Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Analysis").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B41").Select
Sheets("Data").Select
Range("H2").Select
Sheets("Analysis").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Analysis").Select
Range("C29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("N2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("O2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Analysis").Select
Range("O15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("Q2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub