VBA Code Modifcation To Insert a New Row and Fill out with Data As Per Existing Code

[nathandavies]

Hi All,

I have this code which has been working fine, but i'm trying to use the same data for something else now. at the minute the code adds new information from the userform to the next row down, i'm wanting to change it so it adds an extra row above the data. will always be a new row 5. In my new code i need the cells to be fixed (C5, D5, E5 F5 ) with the new information only.


'Write from form to ufDataPrivate Sub Summary()
Dim ws As Worksheet, tgt As Range
Set ws = Sheets("ufData")
Set tgt = ws.Columns(1).Find(Me.tbProj)
If tgt Is Nothing Then Set tgt = ws.Cells(Rows.Count, 1).End(xlUp)(2)
With Me
tgt.Resize(, 10) = Array(.tbProj, .tbOrder, .tbDelivery, .frEngineering.Tag, .frApproval.Tag, .frComp.Tag, .frMetal.Tag, .frProduction.Tag)
End With
End Sub

Hope this makes sense.
ND

[p45cal]

Private Sub Summary()
Dim ws As Worksheet
Set ws =Sheets("ufData")
ws.Rows("5:5").Insert
With Me
ws.Range("C5").Resize(, 8) = Array(.tbProj, .tbOrder, .tbDelivery, .frEngineering.Tag, .frApproval.Tag, .frComp.Tag, .frMetal.Tag, .frProduction.Tag)
End With
End Sub
?

[nathandavies]

Thanks, Pascal this seems to have worked perfectly!