How to: If field is empty do not print sheet

[dutchmaste]

I have a script running like this:

    Sheets("Data").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Barc").Select
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Data").Select
    Range("A3").Select
    Selection.Copy
    Sheets("Barc").Select
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Data").Select
    Range("A4").Select
    Selection.Copy
    Sheets("Barc").Select
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

and it continues on. But if for instance A4 field in Data is empty I want it not to print out that barcode sheet. But I do want it to continue to the next field to check.

Does anybody have a idea how I can arrange this in the macro?