Private Sub UserForm_Initialize()
Me.Spreadsheet1.Cells.Range("A1:Q43").Value = ThisWorkbook.Worksheets("Sheet2").Range("A1:Q43").Value
End Sub
Private Sub UserForm_Initialize()
ThisWorkbook.Worksheets("Sheet1").Range("A1:Q43").Copy
Me.Spreadsheet1.Cells.Range("A1").Paste
End Sub