Como imprimo un rango de celdas hasta que encuentre un valor especifico?

Ejemplo:

----[1]--[2]

(A) 1

( 8

© 25

(D) A

Cuando encuentre que una celda tiene el valor "A" que mande a imprimir únicamente todas las anteriores.

Muchas gracias

Intente algo asi pero no anda, estoy medio oxidado en VBA:

Sub imprimir()
    Dim i As Integer
    Dim fl As Boolean
    fl = True
    i = 0
    Do While fl = True
        If Sheets("Libro1").Cells(i, 1).Value = "A" Then
            fl = False
        Else
            i = i + 1
        End If
    Loop
    Sheets("Libro1").Range(Cells(1, 1), Cells(i, 5)).PrintOut
End Sub