Copy and paste to the next empty column

Hi guys

Could someone please help me amend the below code? Basically I need to be able to copy and paste data into the next empty cell in sheet(archive). I regularly enter new data in sheet(new) and my macro below is overriding my previous data in sheet(archive)

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

End sub

thanks