Удалить строки, где данные в столбцах C,D,E на i равны данным этих же столцов из строки i-1

For i = 1 To Kol_strok - 1
    If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 5) = Cells(i + 1, 5) Then
        Rows(i).Delete Shift:=xlUp
    End If
Next i

i = Columns(1).Rows(65000).End(xlUp).Row + 1
MsgBox "Первая пустая ячейка -  A" & i

i = 1
While Sheets("sheet1").Range("a" & i) <> Empty
i = i + 1
Wend
 
MsgBox "Первая пустая ячейка -  A" & i
End Sub

Sub Raspoz()
 
Dim i As Integer
 
i = 1
 
While Sheets("Vyb_pbp_rasp").Range("a" & i) <> Empty
    If (Cells(i + 1, 3) = Cells(i, 3) And Cells(i + 1, 4) = Cells(i, 4) And Cells(i + 1, 5) = Cells(i, 5)) _
    Or (Cells(i + 1, 3) = 0 And Cells(i + 1, 4) = 0 And Cells(i + 1, 5) = 0) Then
     Rows(i + 1).Delete Shift:=xlUp
    Else: i = i + 1
    End If
Wend
  
End Sub

Sub Попробуй_вариантик()
Dim M()
Dim St, i, J, K, KS
KS = 2
Dim t
t = Time
St = Columns(1).Rows(65500).End(xlUp).Row
 M = Range(Cells(1, 1), Cells(St, 10)).Value
 
i = 1
 J = 2
Do
    Do While (M(J, 3) = M(i, 3) And M(J, 4) = M(i, 4) And M(J, 5) = M(i, 5)) _
    Or (M(J, 3) = 0 And M(J, 4) = 0 And M(J, 5) = 0) And J < St + 1
    J = J + 1
    If J = St + 1 Then GoTo 1
    Loop
    i = i + 1
            For K = 1 To 8
            M(i, K) = M(J, K)
            Next K
    J = J + 1
Loop While J < St + 1
1
 
Лист1.Select
Cells.ClearContents
   Range(Cells(1, 1), Cells(i + 1, 8)).Value = M
MsgBox (Timer - t & " seconds")
End Sub

 ' FSO Constants
   t = timer
   Const ForReading   = 1
   Const ForWriting = 2
   Const ForAppending   = 8
   Const TristateUseDefault= -2
   
   ' Variables
   Dim objFSO, objTS, objOTS, objfile, tempStr
 
   ' Instantiate the object
   Set objFSO = CreateObject("Scripting.FileSystemObject")
 
   ' open the text file read only
   Set objTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.csv", ForReading, False, TristateUseDefault)
   ' We now open the file to write it out
   If objFSO.FileExists("C:\temp\obbnd\Tor_ip_list_ALL.txt") Then
      Set objOTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt", ForAppending) 'открываем итоговый файл для добавления записей
   Else
      Set objfile = objFSO.CreateTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt")
      Set objfile = Nothing
      Set objOTS = objFSO.OpenTextFile("C:\temp\obbnd\Tor_ip_list_ALL.txt", ForAppending)
   End if
 
   Do While objTS.AtEndOfStream <> True
   tempStr = objTS.ReadLine()
      objOTS.Write Replace(tempStr,".","-") & "/" & tempStr & vbCrLf
   Loop
   
   ' Close all files after we read it in.
   objTS.Close
   Set objTS = Nothing
   objOTS.Close
   Set objOTS = Nothing
   Set objFSO = Nothing
t=timer-t
msgbox "OK! Run in " & t