Hi again,

I have a row where the first 4 cells contain data, and then next 7 cells contain formulas that manipulate that data.

I have created a form that allows the user to input data into those first 4 cells. Within the subroutine that writes the data to the worksheet, I would like to tell it to copy the formulas in cells e:k of the previous row in the worksheet and apply those formulas and formats to the cells e:k where I have just written the data.

I've been trying to do it with the use of a module with the following code

Sub copyrow()

Dim EndRow
EndRow = Range("B65536").End(xlUp).Row

Range("e" & EndRow + 1, "k" & EndRow + 1).Value = Range("e" & EndRow, "k" & EndRow).Value

End Sub

I then call the subroutine prior to writing in the data. What's happening is that it is copying the actual data from the previous row, and not the formulas or formats.

Soma