AutoFilter, Add formula then fill down to last row

[decadence]

Hi, I want to be able to filter on column B then add the value from Column H and put it into Column C, then fill down to the last row of filtered data, However I am struggling to find an answer on how to add the cell from column H while filtered, can someone help with this please.

Here is what I have so far

    Columns("B:B").AutoFilter Field:=1, Criteria1:="DNF_"
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range(Range("C2"), Range("C" & Lastrow)).FormulaR1C1 = "=RC[5]"

 

[BarryL]

maybe try the below?

Sub copyover()
  Dim a, b
  Dim i As Long
  a = Range("B1", Range("B" & Rows.Count).End(xlUp)).Value
  ReDim b(1 To UBound(a), 1 To 1)
  For i = 1 To UBound(a)
    If a(i, 1) = "DNF_" Then b(i, 1) = Range("H" & i).Value
  Next i
  Application.ScreenUpdating = False
  With Range("A1").Resize(UBound(a), 3)
    .Columns("C:C").Value = b
    On Error GoTo 0
  End With
  Application.ScreenUpdating = True
End Sub

 

[decadence]

Works Perfectly, Thank you BarryL I haven't entered the Ubound stage of learning yet. Much appreciated for the code.

 

[BarryL]

no worries. glad to help