Help with Macro's

[Dan]

hello, I had recently received a macro that I was needing some help with.
it seems to work on columns where there are formula's only. when i tried to
modify it to work with FORMATS, it did work on columns with formula's, but
would not paste FORMATS down on columns, "without' formula's.

Is there a way to modify it so that it will? if ok as a different macro,
since using separate macro's anyways... (for paste formula's, formats, all)
not sure what the problem is.. thanks in advance

macro works on columns where cells are filled with a formula only.

what using to try to paste Formats down a column (that does not have
formula's):
1 i will manually copy cell at top, and manually place cursor to top row of
any column i choose (dynamic)
2 with macro paste format down column, to end row, skip rows where column A
has a period "."
3 not yet addressed: way to paste all cells at once without pasting 1 cell
at a time..
can work on later.



Sub PastecellF() 'alt-F (paste cell Format to col)
r = ActiveCell.Row
c = ActiveCell.Column
LastRow = Range("C4").Value
'C4 has: =ROW($A$2058) 'last row

For Each c In Range(Cells(r, c), Cells(LastRow, c))
If Cells(c.Row, "A").Value <> "." Then
c.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Selection.Cells.PasteSpecial xlPasteFormats
'Selection.PasteSpecial xlPasteFormats

'.Cells.PasteSpecial xlPasteValues
'PasteSpecial xlPasteValues

End If
Next c
End Sub