[VBA] Να μην συνερίζει αν δει άδειο κελί VBA

[kolekas]

Καλησπέρα στην ομάδα
θέλω την βοήθεια σας σε αυτό τον κώδικα και θέλω όταν ας πούμε στο κελί Β29 του πρώτου φύλλου δεν είχε τίποτα να μην προχωράει πιο κάτω του κώδικα... Και αν γράψεις και δώσεις ξανά εντολή να γράφει και τα υπόλοιπα.


'ΑΝΤΙΓΡΑΔΗ ΑΠΟ Συγκεντρωτική κατάσταση ΣΕ ΔΟΚΙΜΗ
ActiveWindow.SmallScroll Down:=6
Sheets("ΔΟΚΙΜΙ").Select

Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("B28").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("C28").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("I5,G7,G13").Select
Selection.ClearContents
' ΔΕΥΤΕΡΟ ΟΝΟΜΑ

Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("B29").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Συγκεντρωτική κατάσταση").Select
ActiveWindow.SmallScroll Down:=-100
Range("C29").Select
Selection.Copy
Sheets("ΔΟΚΙΜΙ").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Range("I5,G7,G13").Select
Selection.ClearContents

ΚΑΙ ΘΑ ΓΡΑΤΟΥΝ ΚΙΑΛΑ