VBA Loops / Copy / Paste Query

[carlbrianhadi]

Hi Everyone,

I'm new to the forum and this is my first post :0) I'd be get a Intro post done also!

In the meantime, I’m attempting to write the code (with no luck so far), to loop through a range of dates and copy / paste the returned results from another sheet.

Sheet1 – Is where I enter the date and the results are calculated
Sheet2 – Is where I want to build a record of the results against the corresponding date.

Simple code below; copy / paste the date from Sheet2 to show results on Sheet1, copy results and paste back to Sheeet2 against correct date. I need to loop as I’m working with dates going back to 2006! The date range is static 2006 - 2018.

Thank you in advance!

 Sub PRACCRUED()

 Range("A2").Select ***RANGE NEEDS TO CHANGE (A2, A3, A4 etc) – LOOP THROUGH TO LAST CELL***

 Selection.Copy

 Sheets("PR - CALC").Select

 Range("A1").Select

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False

 Range("B223,B225").Select

 Range("B225").Activate

 Application.CutCopyMode = False

 Selection.Copy

 Sheets("ACC PR").Select

 Range("B2:C2").Select ***RANGE NEEDS TO CHANGE B2:C2, B3:C3, B4:C4 etc)– LOOP THROUGH TO LAST CELL***

 Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
 xlNone, SkipBlanks:=False, Transpose:=True

 Range("A2").Select

 End Sub

[carlbrianhadi]

Is anyone able to help?

[carlbrianhadi]

My apologies. Now edited.