Try these .

Sub ReplaceZeros()
' replace zeros
Columns("D:D").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub

Sub CopyHeading()
' auto fill
Dim X As Range

Set X = ActiveSheet.[A1]
X.AutoFill Destination:=X.Resize(X.End(xlDown).Row, 1)
Range("A1:A10").Select
End Sub


Happy new year.


---
Message posted from http://www.ExcelForum.com/