Copy Data to Specific Sheets

[erock24]

Project Anyone?
Can a macro do this for me?

On my database sheet in Col F5:down I have sheet names listed. Can a macro copy data from other columns and insert it into the specific sheets listed in column F but only if B is blank:
I'll need:
col C:D copied to B:C on specific sheet
Col H:M copied to D:I on specific sheet
Then,
col O copied to either J,K,L,M
depending if col N in database sheet = 1,2,3,4
Then filldown the formula in Col O on specific sheet.

Other things that make this seem impossible.
I need to have the data inserted in blue before the total line on each sheet.
I need to record the date when the data moved in col B on the database sheet. So that next time I run the macro It will only move data that has not been moved.
I attached a before and after.
Thank you for any help.

[erock24]

not sure if attachment uploaded, tying again.

[erock24]

I'm bumping this because If anyone knows how to do the copy and paste part, or the other parts invdividually, that would be atleast a start.

Thanks.

[erock24]

I did some searching and was able to paste together this code. I was hoping that is would atleast copy the data to the right sheet, once that was solved I could then focus on getting it to go to the right place with in that sheet. But It errors out at Worksheets(MonthName).Activate saying script out of range?? Any Ideas??
Thank you.

Sub transfer()
Dim DivName As String
Application.ScreenUpdating = False
For i = 5 To Worksheets("Database").Range("F" & Rows.Count).End(xlUp).Row
Worksheets("Database").Activate
Select Case Range("F" & i).Value
Case 1
DivName = "AFD"
Case 2
DivName = "EXEC"
End Select

Rows(i).Copy
Worksheets(DivName).Activate
Range("A" & Worksheets(DivName).Range("A" & Rows.Count).End(xlUp).Row + 1).Select
ActiveSheet.Paste

Next i
Application.ScreenUpdating = True
End Sub