Здравствуйте. Программа на visual basic 2010. При нажатии (Button ) нужно считать данные из таблицы

Sub összefűz()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim z As Integer
Dim s As Integer
For i = 3200 To 3500
k = 500
z = 9998
Cells(i, 5) = "N"
For j = 3200 To 3500
If Cells(i, 4) = Cells(j, 4) Then
If Left(Cells(i, 11), 1) = "M" Then 'Méteráru'Kész
If Mid(Cells(i, 15), 1, 1) = "1" Then
s = Mid(Cells(i, 15), 1, 3)
Else
s = Mid(Cells(i, 15), 1, 2)
End If
If s < k Then
k = s
Cells(i, 6) = s
End If
End If
If Left(Cells(i, 11), 1) = "D" Then 'Darab'
Cells(i, 6) = "D"
End If
If Left(Cells(i, 11), 1) = "T" Then 'Tekercs'
Cells(i, 6) = "T"
End If
If Left(Cells(i, 11), 1) = "C" Then 'Csomagolt'
Cells(i, 6) = "CS"
End If
End If
Next

Next


End Sub