Sub es()
Dim c As Range, x As Long
Application.ScreenUpdating = False
x = 1
For Each c In Range("a2:k" & Cells(Rows.Count, 1).End(xlUp).Row)
If c.Column = 1 Then
z = c
End If
If c.Column <> 1 And c <> "" Then
Cells(x, 13) = c
Cells(x, 12) = z
x = x + 1
End If
Next
End Sub