Private Sub Button_Click()
On Error Resume Next
Dim Dept_Row As Long
Dim Dept_Clm As Long
NewTable = NewSheet.Range("A2:A10")
DataTable = DataSheet.Range("A2:B10")
Dept_Row = NewSheet.Range("B2").Row
Dept_Clm = NewSheet.Range("B2").Column
For Each Cl In NewTable
NewSheet.Cells(Dept_Row...