Like this?


Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rng As Range, cell As Range 
    Application.EnableEvents = False 
    If Not Intersect(Target, Columns(5)) Is Nothing Then 
        Set rng = Intersect(Target, Columns(5)) 
        Application.EnableEvents = False 
        For Each cell In rng 
            If cell.Value = "" Then
                cell.Offset(0, -1).ClearContents 
                cell.Offset(0, -2).ClearContents 
            Else
                cell.Offset(0, -1).Value = "=VLOOKUP(RC[1],Language,3,FALSE)" 
                cell.Offset(0, -2).Value = "=VLOOKUP(RC[2],Language,2,FALSE)" 
            End If
        Next 
        rng(rng.Cells.Count)(2, 1).Select 
    End If 
    Application.EnableEvents = True 
End Sub