Listview'den excel sayfasina veri aktarma

[lapot]

Arkadaslar bir command button kullanarak UserForm6-Listview'den sectiklerimi UserForm7-Listview'e aktarip, ayni zamanda secilenleri "Statements" isimli excel sayfasinada aktarmak istiyorum , fakat UserForm7 aktarma basarili oluyor ancak "Statements" sayfasina aktraim UserFormlari kapattiktan sonra oluyor ben ise aninda olmasini istiyorum , bunu nasil basarabilirim?

yardimlariniz icin tesekkurler

Private Sub EmailStat_Click()
UserForm7.Hide
Set s = Sheets("Statements")
Cells.Select
Selection.ClearContents

Range("B1").Select
ActiveCell.FormulaR1C1 = "Client Code "
Range("C1").Select
ActiveCell.FormulaR1C1 = "Client Name "
Range("D1").Select
ActiveCell.FormulaR1C1 = "Email1 "
Range("E1").Select
ActiveCell.FormulaR1C1 = "Email2 "


Sheets("Statements").Select


'Range("A1:F1", Range("A1").End(xlDown).End(xlToRight)).Select
'Selection.ClearContents
R = Sheets("Statements").Range("A65536").End(xlUp).row + 1
For i = 1 To ListView2.ListItems.Count
If ListView2.ListItems(i).Selected = True Then
'~~> Data copied to Column A, B and C
Sheets("Statements").Range("B" & R).Value = ListView2.ListItems(i).Text
Sheets("Statements").Range("C" & R).Value = ListView2.ListItems(i).SubItems(1)
Sheets("Statements").Range("D" & R).Value = ListView2.ListItems(i).SubItems(2)
Sheets("Statements").Range("E" & R).Value = ListView2.ListItems(i).SubItems(3)
'Sheets("Statements").Range("E" & R).Value = ListView1.ListItems(i).SubItems(4)
R = R + 1
End If
Next i

UserForm6.Show

End Sub