Placing the same formula in every adjacent cell of used range

[Human_doing]

Hi all,

Can anyone please help with this. What I'm trying to do is use VBA to place a formula in every cell in Column B where there is an entry in the adjacent Column A. The number of used rows may vary every time. Could anyone please correct the below code? The required formula is
=COUNTIF($A$2:$A2,A2)>1

Dim Sh As Worksheet
Dim LR2 As Long
With Sh
LR2 = .Range("A" & .Rows.Count).End(xlDown).Row
      .Range("B2:B" & LR2).Formula = "=COUNTIF(R2C1:RC1,RC[-1])>1"
End With

The error I get is Run-time error 91: Object variable or With block variable not set.

Many thanks

 

[VoG]

You haven't assigned a value to Sh You need something like

Set Sh=Sheets("Sheet1")

 

[Peter_SSs]

Also, unless you want the formula right to the bottom of the whole worksheet, you'll need to change this

LR2 = .Range("A" & .Rows.Count).End(xlUp).Row