Userform çoklu seçim veri girişi

[bordo6181]

Sub durumguncelle()
If Selection.Count > 1 Then Exit Sub
Dim idno As Long
'idno = InputBox("Değiştirmek istediğiniz KayıtNo yazınız")
satır = ActiveCell.Row
Set alan = Columns("A:A")
'satır = Application.WorksheetFunction.Match(idno, alan, 0)

If Cells(satır, 23) <> "" Or Cells(satır, 24) <> "" Then
MsgBox "Lütfen Geçerli bir seçim yapınız"
End If
UserForm3.raporno = ""
UserForm3.raportarih = ""
If Cells(satır, 23) = "" Or Cells(satır, 23) = "" Then
ActiveSheet.Unprotect "excelwebtr*"
UserForm3.Show
Cells(satır, 23) = UserForm3.raportarih
Cells(satır, 24) = UserForm3.raporno
MsgBox "Üst Yazı Bilgileri Eklendi"
End If
Sheets("liste").Protect "excelwebtr*", _
    DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True
End Sub

Bu kod ile şuanda seçtiğim bir hücreye değer girebiliyorum ancak bazen aynı veriyi aynı anda birden fazla hücre seçip birden fazla hücreye girmek istiyorum. Bu mümkün mü?