Copy and pasta into the next empty column

Hi guys

I have the below code but it doesn't actually do what I need it to do. Basically i want to copy and paste the column from WB2 into the next empty column in WB3. Any help would be greatly appreciated.

Sub Archive()
    Dim i As Long
    Dim WB2 As Worksheet: Set WB2 = Sheets("New")
    Dim WB3 As Worksheet: Set WB3 = Sheets("Archive")
    
    For i = 2 To 13
        With WB2
            If Application.WorksheetFunction.IsText(.Cells(39, i)) Then
                .Range(.Cells(2, i), .Cells(39, i)).Copy Destination:=WB3.Cells(2 + 1, i)
            End If
        End With
    Next i