Dim ligA, ligC, colC As Integer
ligA = 2
ligC = 1
While Not IsEmpty(Cells(ligA, 1))
If Not IsEmpty(Cells(ligA, 2)) Then
Sheets('C').Cells(ligC, 2).Value = Cells(ligA, 1).Value
Sheets('C').Cells(ligC, 3).Value = Cells(ligA, 3).Value
Sheets('C').Cells(ligC, 4).Value = Cells(ligA, 4).Value
ligC = ligC + 1
End If
ligA = ligA + 1
Wend