Trying to print all options from a VLOOKUP

UKHG-AJ This code should do the trick. Adjust cell addresses and worksheet names in the code before running this on a copy of your file.

Sub PrintAllContracts()
    Dim contractNmbr As String
    Dim contracts As Collection
    Dim contractCell As Range
    Dim contract As Variant
    Set contracts = New Collection
    For Each contractCell In Worksheets("Sheet1").Range("A2:A10")
        contractNmbr = Trim(contractCell.Value2)
        If Len(contractNmbr) > 0 Then
            On Error Resume Next
            'Add only unique contract numbers
            contracts.Add contractNmbr, contractNmbr
        End If
    Next

    If contracts.Count > 0 Then
        For Each contract In contracts
            With Worksheets("Sheet2")
                .Range("A15").Value = contract
                .PrintOut
            End With
        Next
    End If
End Sub