VBA Copy cells fill down on another sheet with last row

kbashaw If I've understood everything correctly, the following code should work:

Option Explicit

Sub RepeatClerkNames()

    Dim wsSource As Worksheet, data As Variant, k As Long
    Set wsSource = Sheets("Clerk")
    data = wsSource.Range("A2:A" & wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row).Value
    k = UBound(data, 1)

    Dim wsOutput As Worksheet, arr() As Variant, i As Long, j As Long
    Set wsOutput = Sheets("Sheet3")
    ReDim arr(1 To wsOutput.Cells(wsOutput.Rows.Count, 1).End(xlUp).Row - 1, 1 To 1)
    j = 1
    For i = 1 To UBound(arr, 1)
        arr(i, 1) = data(j, 1)
        j = IIf(j = k, 1, j + 1)
    Next i

    wsOutput.Range("P2").Resize(UBound(arr, 1)).Value = arr

End Sub

Adjust the worksheet names, if necessary. Cheers!