AutoFill on Dynamic Range to Visible Cells

[jognat]

Hello all,

I am new to Macros/VBA and have been lurking around trying to piece together something that will work for what I need to do, but I have been unsucessful.

Situation: I am looking to AutoFill a dynamic column range to only visbile cells.

This is what I have pieced together so far:

Range("R3").Select
    ActiveCell.FormulaR1C1 = "MS Related"
    Dim endRow As Long
        endRow = Cells(Rows.Count, "A").End(xlUp).Row
        ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":R" & endRow)

This works great for filling the column with the text "MS Related," but I have not been able to accomplish the same thing while only applying it to the visible cells (the data set is filtered).

My issue is trying to figure out how -

SpecialCells(xlCellTypeVisible)

- plays into what I want to accomplish?

Any suggestions on how to solve this?

Thanks for your help.

 

[wigi]

Consider:

Range("R3:R" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value = "MS Related"

All the rest is garbage and can (should) be left out.

 

[jognat]

That worked perfectly.

Thank you for your help, wigi.

Best