Estou querendo adicionar valores em arrays e inseri-los em outra planilha, por favor podem em ajudar, está retornando um erro de incompatibilidade eu não estou encontrando o erro podem me ajudar?

Este código faz o seguinte encontra o código de um cliente e copia os valores da linha correspondente ao cliente e cola em outra planilha.

Private Sub CommandButton1_Click()


If txtCod = "" Then

MsgBox ("Insira o código do cliente!")

Exit Sub

Else

Dim codigo As Integer
Dim elemento(2) As Integer
Dim valor As Integer

linha = 4
codigo = txtCod
'
Sheets("Plan1").Select
Do Until Sheets("Plan1").Cells(linha, 2) = "" 'condicção para localizar o código
If Sheets("Plan1").Cells(linha, 2) = codigo Then
'seleciona célula com o código
Sheets("Plan1").Cells(linha, 1).Select

ActiveCell.Offset(0, 1).Select

elemento(0) = ActiveCell

ActiveCell.Offset(0, 1).Select

elemento(1) = ActiveCell

ActiveCell.Offset(0, 1).Select

elemento(2) = ActiveCell

Sheets("Plan6").Select
Range("C1:L4").Cells(1, 1) = elemento(0)
Range("C1:L4").Cells(1, 4) = elemento(1)
Range("C1:L4").Cells(4, 1) = elemento(2)
ListBox1.ColumnCount = 12
ListBox1.RowSource = "Plan6!A1:L152"

End If

linha = linha + 1
Loop

End If