Não sei se entendi, mas experimente "resetar" a variavel sCol logo apos iLin+1

Dim iLin As Integer
    Dim wsRelatorio As Worksheet
    Dim UltimaLinha As Long
    Dim iListCount As Integer
    Dim sCol As Integer
    
    Set wsRelatorio = ThisWorkbook.Worksheets("Relatorio")

    UltimaLinha = wsRelatorio.UsedRange.Rows.Count
    
    wsRelatorio.Range("A2:" & "E" & UltimaLinha).ClearContents
    
    sCol = 1
    iLin = 2

    For iListCount = 0 To ListBox1.ListCount - 1
                  
        For iColCount = 0 To 4
            
             wsRelatorio.Cells(iLin, sCol).Value = ListBox1.List(iListCount, iColCount)
             
        sCol = sCol + 1
              
        Next iColCount
        
        iLin = iLin + 1
        sCol=1 
        Next iListCount
    
Call CriaPDF

A primeira linha fica da coluna A até a E a segunda linha fica da coluna F até a J é assim sucessivamente

Não disse se testou o que propus/postei

Desculpe Reinaldo
Testei mas não funcionou.

Anexo o aplicativo

Para acessar o excel ADM e senha 1234

Boa noite
Se repararem na aba "Relatorio" está lá o que acontece, obrigado.
Abç.,
Rui

Veja se atende