For i = d1 To 1 Step -1

    If a1.Cells(i, 1).Value = "" Then
    a1.Rows(i).Delete shift:=xlUp
    End If

Next i

Sub Znajduj_litery_usun_puste()

Dim i As Integer, j As Integer
Dim d1 As Long, d2 As Long
Dim flag As Boolean

Set a1 = Sheets("Spis")
Set a2 = Sheets("Czy jest")

d1 = a1.Cells(Rows.Count, "A").End(xlUp).Row
d2 = a2.Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To d2
s = a2.Cells(i, 1).Value
flag = False
        For j = 1 To d1
        If UCase(a1.Cells(j, 1).Value) = UCase(s) Then
        a1.Cells(j, 1).Interior.ColorIndex = 8
        flag = True
    End If
        Next j
If flag = False Then a2.Cells(i, 1).Interior.ColorIndex = 3
       
Next i

For i = 1 To d1

    If Cells(i, 1).Value = "" Then
    Rows(i).Delete shift:=xlUp
    End If

Next i


End Sub