Hallo,
vorab, mit Range("A:A") vergleichst Du die erste Spalte, keine Zeile, desweiteren kannst Du ein Array nicht auf leer abfragen, aber mach mal so:
If WorksheetFunction.CountA(Worksheets("Tabelle1").Rows(1)) > 0 Then
Gruß,