Sub RetranslateSelectedRows() ' перевести выделенные строки
    On Error Resume Next
    Dim ro As Range
    For Each ro In Intersect(Selection.EntireRow, Range("4:" & ActiveSheet.UsedRange.Rows.Count)).EntireRow
        TranslateRow Intersect(ro, ActiveCell.EntireColumn)
    Next ro
End Sub

Sub TranslateRow(ByRef BaseCell As Range)
    On Error Resume Next
    ' shtr - кодовое имя листа
    Dim TrRange As Range, LangCodes As Range, cell As Range
    Set LangCodes = shtr.Range(shtr.Range("b2"), shtr.Range("z2").End(xlToLeft))
    Set TrRange = Intersect(BaseCell.Next.Resize(, 30), LangCodes.EntireColumn)
    For Each cell In TrRange.Cells
        LangFrom$ = BaseCell.EntireColumn.Cells(2)
        LangTo$ = cell.EntireColumn.Cells(2)
        cell = GoogleTranslate$(BaseCell, LangTo$, LangFrom$)
    Next cell
End Sub