Apply one macro to multiple rows

Hello,

So I have a question ragarding VBA. I have a sheet in which there is a column of dates and a column of values. When I input a date it returns a row of 22 values, unique for every date. The number of rows is 1500.
The VBA code has to take sequentally each date, paste it in the field for dates inputs, copy the resulting row and paste it as values one after another, to get the 1500 rows of 22 values in each.
This is the macros for the first row, how can I modify the code for VBA to fill all 1500 rows?

Range("J1295").Select
Selection.Copy
Range("O1287").Select
ActiveSheet.Paste
Range("Q1294").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("Q1295").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False