Excel macro para un boton de impresion

Hola soy un poco nuevo en eso de vba code y quería ver si me podrían ayudar, tengo una hoja de Excel para imprimir una serie de números que van en una factura (más o menos a mitad de hoja) previamente impresa
y a veces son como 10 facturas con diferentes números en cada una

mi punto es. quiero que con un macro me imprima de una lista de números que tengo el siguiente numero en medio de la hoja
es decir, que mande a imprimir y me imprima AA1 y la siguiente hoja DF3 y la siguiente GY5 suponiendo así va mi lista

AA3 en la primera hoja de impresión a la mitad de la hoja
DF3 en la segunda hoja a mitad de la hoja
GY5 en la tercera hoja a mitad de la hoja

me han comentado que con un ciclo de "for" "to"

mas o menos asi:

Sub Imprimir()
Dim contador As Integer
For contador = aqui la lista
aqui codigo del contador
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
Collate:=True, _
IgnorePrintAreas:=False
Next
End Sub

.

Option Explicit

 Sub Test1()
      Dim x As Integer
      Dim NumRows  As Integer
      Dim Cell As Range
      ' Set numrows = number of rows of data.
      NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A2").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 2 To NumRows
         Cells(x, 1).Select
         
         'Place print code here using "Selection.Value" as the reference to the term
         'to be printed on the invoice.
         
         MsgBox Selection.Value 'use this for demo purpose
         
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
   End Sub

Originally Posted by Logit

.

Option Explicit

 Sub Test1()
      Dim x As Integer
      Dim NumRows  As Integer
      Dim Cell As Range
      ' Set numrows = number of rows of data.
      NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A2").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 2 To NumRows
         Cells(x, 1).Select
         
         'Place print code here using "Selection.Value" as the reference to the term
         'to be printed on the invoice.
         
         MsgBox Selection.Value 'use this for demo purpose
         
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
   End Sub

Gracias, tu codigo me dio la idea de como hacerle, muchas gracias.
use un loop que me cambie el valor de la celda que ocupo asi imprime el siguente valor solo que como tengo formulas en las celdas use un if para detectar los que estan en blanco
o se puede directamente sin usar un "if"?

 Sub Test1()
      Dim x As Integer
      Dim NumRows  As Integer
      Dim Cell As Range
      ' Set numrows = number of rows of data.
      NumRows = Range("I2", Range("I2").End(xlDown)).Rows.Count
      ' Select cell a1.
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 2 To NumRows
         Cells(x, 9).Select
         If Selection.Value <> "" Then
         Range("B31").Value = Selection.Value
         MsgBox Selection.Value
'         ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=False, IgnorePrintAreas:=False
         ActiveCell.Offset(1, 0).Select
  
         'Place print code here using "Selection.Value" as the reference to the term
         'to be printed on the invoice.
         
          'use this for demo purpose
         
         ' Selects cell down 1 row from active cell.
         Else
         Exit Sub
         End If
         
         
      Next
   End Sub

.
You are welcome. Glad you have it working. Cheers !

gracias por el aporte!