Print sheets until end of variable list is reached

[JamesT1]

Good afternoon all

I am looking for a way to move information into a print area then print the sheet,, carry on doing this until the end of a variable list is reached....

On the attached sheet.... Column A has a list of numbers, this list can change each time,, what I am looking for is,, when the print button is pressed,, the first two numbers are copied into the green cells,, then the sheet prints,, the next two numbers are moved into the green cells then the sheet prints.. etc.. until the bottom of the list in column A is reached...

I tried recording the macro,,, and this would work for a fixed list,,, but I'm not sure how to adjusy for a variable list

any help would be very much appreciated

Many thanks

JT

[6StringJazzer]

I successfully tested this on your file:

Sub Macro3()

   Dim R As Long ' row
   
   R = 3 ' first data row
   With Sheet1
      Do Until .Cells(R, "A") = ""
         .Range("N6") = .Cells(R, "A")
         .Range("N17") = .Cells(R + 1, "A")
         ActiveWindow.SelectedSheets.PrintOut Copies:=1
         
         R = R + 2
      Loop
   End With
   
End Sub

[JamesT1]

Jeff

This works perfectly for me,,, many thanks for you valuable assistance....

JT

[6StringJazzer]

You're welcome, glad to help!