fill down formula based on value in specific column

[abdelfattah]

hello
I have this formula but what I need fill down the formula automatically without pull down manually , what I want when I fill numbers in any cell in column e then show formula in column g
this is my trying

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
Dim strFormulas As Integer
LR = Range("g" & Rows.Count).End(xlUp).Row
strFormulas= "=IF(E2=0;"paid";"unpaid")"
Target.Formula = strFormulas
Target , Range("g2:g" & LR) = FillDown
End Sub

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
   LR = Range("E" & Rows.Count).End(xlUp).Row
   Range("g2:g" & LR).Formula = "=IF(E2=0,""paid"",""unpaid"")"
End If
End Sub

 

[abdelfattah]

well done ! thanks so much

 

[Fluff]

Glad to help & thanks for the feedback.