Hi girth69

Use this example

In a row on sheets "Entry Form" below you data add formulas like this(8*)

in A50 =C6
in B50 =C8
......

You can hide this row

Sub copy_1_Values_ValueProperty()
   Dim sourceRange As Range
   Dim destrange As Range
   Dim Lr As Long
   Lr = LastRow(Sheets("Database")) + 1
   Set sourceRange = Sheets("Entry Form").Range("A50:G50")
   With sourceRange
       Set destrange = Sheets("Database").Range("A" & Lr). _
                       Resize(.Rows.Count, .Columns.Count)
   End With
   destrange.Value = sourceRange.Value
End Sub

Function LastRow(sh As Worksheet)
   On Error Resume Next
   LastRow = sh.Cells.Find(What:="*", _
                           After:=sh.Range("A1"), _
                           Lookat:=xlPart, _
                           LookIn:=xlFormulas, _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlPrevious, _
                           MatchCase:=False).Row
   On Error GoTo 0
End Function