كيفية عرض البيانات الموجودة في ورقة العمل على الفورم بنفس شكل ورقة العمل

Private Sub UserForm_Initialize()
    Me.Spreadsheet1.Cells.Range("A1:B2").Value = ThisWorkbook.Worksheets("Sheet1").Range("A1:B2").Value
End Sub

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
    ThisWorkbook.Worksheets("Sheet1").Range(Target.Address).Value = Target.Value
End Sub