OK, I will help, but you have to do the work!
Here is how to get the value out of a sheet:
Thevariable = ThisWorkbook.Worksheets("SheetName").Range("M3").value
That will populate the "Thevariable" Variable with the value in Sheetname.M3.
Then, to cut the line:
ActiveSheet.Range("A" & whatrow).EntireRow.Select
Then to past the entire line, it is:
Private Function copyRow(whatrow, whatsheet)
ActiveSheet.Paste Destination:=Worksheets(whatsheet).Range("A" & whatrow)
Application.CutCopyMode = False
To deploy the above code:
In order to go through each line, you use:
X = Cells(ThisWorkbook.Worksheets(whatsheet).Rows.Count, 1).End(xlDown).Row
Now you loop using X on column CB!