comboboxdataki veriyi bütün sayfaların ayrı ayrı stünlarına yazdırma

[enes2000eren]

Slm.arkadaşlar aşağıdaki kodla 1. Sayfanın e1:e50 arasına comboboxtaki veriyi yazdırabiliyorum.ben 2.(3. , 4., 5.,…25.,)sayfanın f1:f50 arasına comboboxtaki veriyi yazdırmak istiyorum.hatta mümkünse bütün sayfaların a1:a50 stünunda dolu olan hücrelerin karşısındaki e1:e50 arasına comboboxtaki veriyi yazsın istiyorum.
Private Sub ComboBox1_Change()
Sheets("1.").Select
Range("E1:E18").Select
Selection.ClearContents
[E1:E18] = ComboBox1.Text
End Sub

 

[Orion1]

Private Sub ComboBox1_Change()
Dim sh As Worksheet, hcr As Range, k As Byte
For Each sh In Worksheets
    sh.range("B1:E50").clearcontents
    For Each hcr In sh.Range("A1:A50")
        If hcr.Value <> "" Then sh.Range("B" & hcr.Row & ":E" & hcr.Row).Value = ComboBox1.Value
    Next
Next
End Sub