Vba Fill In From Cell Above Over 2 Worksheets

I'm looking at filling in a cell value from the cell above in column A but over a range of worksheets. It only needs to fill down until the last used row.

The last used row in the worksheet will vary for each worksheet .. but the longest column will be column T or U.

this code "works" but only for the active sheet... i'm sure its something easy to adjust.

Sub CopyDataDown()
' ---
Dim ws As Worksheet
Dim Lr As Long

Application.ScreenUpdating = False

For Each ws In ActiveWorkbook.Worksheets
If ws.Name "Notes" _
And ws.Name "FrontSheet" Then
Lr = WorksheetFunction.Max(Range("T" & Rows.Count).End(xlUp).Row, Range("U" & Rows.Count).End(xlUp).Row)
With Range("A2:A" & Lr)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With

End If
Next ws
Application.ScreenUpdating = True
End Sub