Nhờ A/C giúp em sửa code VBA

[thâitmtu012000]

Xin chào mọi người
mình mới tự học VBA-excel nên còn mù tịt về đoạn viết code.
Đang tự viết một đoạn code mà mãi ko được, nên nhờ mọi người giúp đỡ sủa giúp.
Hiện nhập dữ liệu mãi ko chạy
Xin cám ơn mọi người

Đoạn code như sau :

Private Sub CommandButton2_Click()
With Sheet1
Dim n As Long
Dim i As Long
Dim ketqua
ReDim ketqua(i, 1 To 10)
If Me.MatHang = True Then
For i = 1 To n
ketqua(i, 1) = Me.MatHang.Value
Next
End If
End With
End Sub

Trân trọng !