Problemas con celdas vacias

[polig]

Hola,
Mi macro esta escrita de la siguiente manera:
Como puedes ver es simplemente copiar datos y pegarlos en una nueva hoja, para darles un formato especial.
Espero puedan ayudarme, gracias!!

Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Range("A7").Select
Range("J1:J4").Select
Selection.ClearComments
Columns("O:O").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=189
Rows("700:700").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A8").Select
Range("A8:M8").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$O8=""kritisch"""
Selection.FormatConditions(1).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$O8=""verschoben"""
Selection.FormatConditions(2).Interior.ColorIndex = 37
Selection.Copy
Range("A9:M9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select