Exel data to word, from fixed row, unfixed cullomns

Private Sub CommandButton2_Click()
Dim objWord As Object
Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Main")
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
'Sor változó segítség\Variable help for row
    Dim sor As String
    sor = ActiveCell.Row
'Mentés nevéhez segítség\ Help for save name
    Dim nev As String
    nev = Sheets("Main").Range("N" & sor)
    Dim Telefon As String
    Telefon = Sheets("Main").Range("G" & sor)
'látható e\visibility
    objWord.Visible = False
'fájl hely\path to the form document(word with bookmarks)
    objWord.Documents.Open "W:\Doksik\Átadás-átvételi jegyzőköny-mobil\Mobil_Atad_Form.docx"
'A az aktív sort kapja meg, az oszlop fix\ the script gets the active row you clicked in, the collumn is fixed on each bookmark
    With objWord.ActiveDocument
        .Bookmarks("Nev").Range.Text = ws.Range("N" & sor).Value
        .Bookmarks("Telefonszam").Range.Text = ws.Range("E" & sor).Value
        .Bookmarks("SimImei").Range.Text = ws.Range("F" & sor).Value
        .Bookmarks("Tipus").Range.Text = ws.Range("G" & sor).Value
        .Bookmarks("TelefonImei").Range.Text = ws.Range("H" & sor).Value
        .Bookmarks("Pin1").Range.Text = ws.Range("I" & sor).Value
        .Bookmarks("Datum").Range.Text = Date                             'Gets you the date
        .SaveAs2 Filename:="W:\Doksik\Átadás-átvételi jegyzőköny-mobil\Mobil Átadás-Átvétel " & nev & " " & Telefon & " " & Date & "docx", FileFormat:= _   'elérési út hova mentsen \ saving path, it means "Mobil Átadás-Átvétel Mike Thyson iphone5s 2019.05.20.docx"
        wdFormatXMLDocument, AddtoRecentFiles:=False
        .PrintOut Copies:=2   '2-szer nyomtatja ki \ prints 2 times
        .Close

    End With
    objWord.Quit
    Set objWord = Nothing

End Sub