Writing formula at the end of selection

[nirvehex]

Hi,

I have a VBA code:

Sheets("Recommendations").Select
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Client Pre-Bid").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

It pastes in data from one sheet tab to another. The range varies in number of rows. Once the data is pasted, how do I add in the formula "=countif(A2:end of last row pasted,"Yes") into the row below the last row pasted?

 

[bbott]

    Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(2, 0).Formula _
        = "=COUNTIF(A2:A" & Range("A" & Rows.Count).End(xlUp).Row & ",""Yes"")"

 

[VoG]

Try

Sheets("Recommendations").Select
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Client Pre-Bid").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & LR + 1).Formula = "=COUNTIF(A2:A" & LR & ",""Yes"")"

 

[nirvehex]

Thanks VoG, worked perfectly!