Copy and past special in the same cells EXCEL VBA Code

[Cindy Stanley]

I need to copy just the cells that are blank in column and paste them in the same cell A.. I get an error when it goes to paste... here is the code that I am using and a sample sheet is attached.. the sheet is much bigger than this.

#Sub CopyPasteRowBlankCells()
Application.ScreenUpdating = False
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Copy
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
End Sub#

[Eastw00d]

Hi, maybe you can use this peace of code:

Please Login or Register  to view this content.

Cheers
Erwin

[Cindy Stanley]

That worked perfect.

Thanks