Troque sua rotina pela a abaixo :

Sub Preenche_ListBox()
    Dim linha As Integer
    Dim conta_Presentes As Integer
    Dim textocelula As String
    
    Dim sData As Date
    sData = Date
    
    'carrega itens na listbox produtos
    linha = 2
    linhalistbox = 0
    conta_Presentes = 0
    
    ListBox1.ColumnWidths = "60;20;40"

    Do Until Sheets("Plan1").Cells(linha, 1) = ""
       
       If Sheets("Plan1").Cells(linha, 1).Value = sData Then
         
            With ListBox1
                .AddItem
                .List(linhalistbox, 0) = Sheets("Plan1").Cells(linha, 1)
                .List(linhalistbox, 1) = Sheets("Plan1").Cells(linha, 2)
                .List(linhalistbox, 2) = Format(Sheets("Plan1").Cells(linha, 3), "hh:mm") 'ENTRADA
                .List(linhalistbox, 3) = Format(Sheets("Plan1").Cells(linha, 4), "hh:mm") 'SAÍDA
                    
                linhalistbox = linhalistbox + 1
            End With
        
            linha = linha + 1
            conta_Presentes = conta_Presentes + 1
            Label1 = conta_Presentes
        
        Else
        
            linha = linha + 1
        
        End If
        
    Loop

End Sub

[]s

Bom Dia!

Mauro Muito ObrigadO!

at
Laerte Oiveira