Public Sub Tst()
Dim myWorksheet As Worksheet
For Each myWorksheet In Worksheets
    If myWorksheet.Range("A1").Value <> "" Then
        Dim Wrd As Object
        Dim Table1 As Object
        Dim Doc As Object
        Dim str As String
        Dim data As Date
        Dim str2 As String
        Dim word() As String
        Dim word2() As String
        str = myWorksheet.Range("A1")
        word() = Split(str, "&#231;&#224; ") ' za probel
        word2() = Split(word(1), " &#227;") 'probel g
        str2 = word(1)
        data = CDate(word2(0))
        Set Wrd = CreateObject("Word.Application")
        With Wrd
            Set Doc = Wrd.Documents.Add
            With .Selection
                .Font.Size = 12
                .Font.Name = "Times New Roman"
                .Font.Bold = True
                .Font.Italic = True
                .TypeText "&#209;&#226;&#238;&#228;&#234;&#224; &#231;&#224; " & data 'Svodka za
                Set Table1 = Doc.Tables.Add(Doc.Range(Start:=0, End:=0), 1, 3)
                .Font.Italic = False
                    With Table1
                        Table1.Cell(1, 1) = myWorksheet.Range("F20").Value & myWorksheet.Range("F21").Value & myWorksheet.Range("F22").Value
                        Table1.Cell(1, 2) = myWorksheet.Range("G20").Value & myWorksheet.Range("G21").Value & myWorksheet.Range("G22").Value
                        Table1.Cell(1, 3) = myWorksheet.Range("H20").Value & myWorksheet.Range("H21").Value & myWorksheet.Range("H22").Value
                    End With
            End With
        End With
        Doc.SaveAs "C:\Users\aem00511\temp\&#241;&#243;&#242;&#238;&#247;&#237;&#251;&#229; &#240;&#224;&#239;&#238;&#240;&#242;&#251;\SB_UR_00023 Drilling Report DRPT Ru " & data & ".doc"
        Doc.Close
        Wrd.Quit
        Set Wrd = Nothing
    End If
Next
End Sub