Sayın lawish
ne yapmaya çalıştığınızı anlayamadım ama
hatadan kurtulamk için sırala düğmesinin hemen altına örnekteki gibi
On Error Resume Next yazısını yazmanız yeterli olacak
burada neden dizileri kullandınız ?
Private Sub sırala_Click()
On Error Resume Next
Dim a(29, 4) As Single
Dim w(29, 0) As Single

w(0, 0) = w1.Value