Pessoal,
boa noite!

Estou fazendo uma planilha de controle de pagamentos, e estava funcionando tudo certo, inclusive já estou inserindo os pagamentos à receber. No quarto pagamento que fui inserir, minha listview deu o seguinte problema:

eu aciono ela por um commandbutton, e quando clico nele aparece mensagem "erro 13 - tipos incompatíveis".

Quando eu rodo a listview sozinha, sem ser pelo commandbutton também dá o mesmo erro.

segue abaixo as duas rotinas:

Private Sub Controle_Click()
ControlPagto.Show
End Sub

Private Sub UserForm_Initialize()
Sheets("pagamentos").Select

'para abrir a listview
With ListView1
.Gridlines = True 'exibe/oculta as linhas da grade
.View = lvwReport  'estilo de exibição
.FullRowSelect = True  'permite selecionar uma linha

.ColumnHeaders.Add Text:="CódPagto", Width:=45
.ColumnHeaders.Add Text:="CódCliente", Width:=50
.ColumnHeaders.Add Text:="Fatura", Width:=50
.ColumnHeaders.Add Text:="Nome", Width:=160
.ColumnHeaders.Add Text:="Sub-total", Width:=50
.ColumnHeaders.Add Text:="Data", Width:=60
.ColumnHeaders.Add Text:="Status do Pagto", Width:=70
.ColumnHeaders.Add Text:="Total da Nota", Width:=60
.ColumnHeaders.Add Text:="Atraso", Width:=60


End With
'para abrir a listview

Dim linha As ListItem
Dim txt_subtotal As Double
Dim data As Date
Dim total As Double


ListView1.ListItems.Clear

lin = 2

Range("a2").Select
While ActiveCell <> ""
Set linha = ListView1.ListItems.Add(Text:=Sheets("pagamentos").Cells(lin, 1).Value) 'código
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 2).Value 'codcliente
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 3).Value 'fatura
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 4).Value 'nome do cliente
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 14).Value 'subtotal
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 17).Value 'data
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 19).Value 'status
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 20).Value 'total
linha.ListSubItems.Add Text:=Sheets("pagamentos").Cells(lin, 17).Value - DateValue(Now)
lin = lin + 1
ActiveCell.Offset(1, 0).Activate
Wend

End Sub

O que eu não entendo é como antes estava funcionando, e do nada, parou de funcionar.
Alguma alma boa para ajudar?

Obrigada!