write data to worksheet using rowcount current region

[Hyperlink]

I'm using this code to write to worksheet:

Please Login or Register  to view this content.

I have this formula (IF(ISBLANK(A3),"",Sum(F2-D3+E3)) in Column F and use autofill from F2 through F1000.

The problem I have is that when I click command button on user form, it writes data (first empty row) in cells A1001, B1001, C1001, D1001.
If I remove the formula from Column F, it writes data in correct row, but Then I have to Manually enter formula in F column.

Is it possible to have vba code to insert formula and autofill to return proper value in column F?

[AlphaFrog]

Try this...

RowCount = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

[Hyperlink]

Thats it!! Thank You for your time and dedication to helping us that are vba challenged.