VBA Excel - Loop deletar linhas

Sub Deletar()

   Dim LinhaFinal As Long 'Variável que irá armazenar a última linha preenchida
 
   Sheets("Plan1").Select 'Seleciona a planilha que será deletado as linhas

   Range("A1048576").Select 'Última linha do excel 2013

   Selection.End(xlUp).Select

   LinhaFinal = ActiveCell.Row

   LinhaFinal = LinhaFinal + 1

   Lin = 2


Do While Lin < LinhaFinal
    If Cells(Lin, 3) <> 1 Then
    ActiveSheet.Range(Cells(Lin, 1), Cells(Lin, 3)).Select
    Selection.Delete Shift:=xlUp
    LinhaFinal = LinhaFinal - 1
    End If
 
    Lin = Lin + 1
 
Loop

End Sub