listbox taki sutunları ( örn: 1. ve 2. sutunu ) sayfada istediğimiz yere atabilirmi

[aliergin]

listbox daki iki kolondaki bilgileri çift tıklamayla 1.kolonu sayfada c sutununa 2. kolonu sayfada d sutununa atabilirmi ( tek veriyi şu şekildeki kod la atabiliyorum)
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim Hedef As Range, Alan As Range
Set Hedef = Range("C3:C10000")
Set Alan = Intersect(ActiveCell.EntireRow, Hedef)
Alan.Value = ListBox1.Value
End Sub