Cells values not updated by VBA commands

Question

Hi.
Can you please see why the three lines under the
'Fetching default values for certain fields
don't work?
No error is raised, the similar command preceding these three works fine. Target cells remain empty.
Sub AddReservations()  
  ActiveSheet.Unprotect
    Dim tblTarget As ListObject
    Dim rowNew As ListRow
    On Error GoTo FailedAddRow
    Set tblTarget = Sheets("Reservations").ListObjects("ReservationsTable")   
Set rowNew = tblTarget.ListRows.Add       
tblTarget.DataBodyRange.Cells(rowNew.Index, tblTarget.ListColumns("Contract").Index) = tblTarget.DataBodyRange.Cells(rowNew.Index - 1, tblTarget.ListColumns("Contract").Index) + 1      
     'Fetching default values for certain fields - THESE THREE DO NOT WORK:  
tblTarget.DataBodyRange.Cells(rowNew.Index, tblTarget.ListColumns("Insurance Per Day").Index) = Range("Default_Insurance_Fees").Value   
tblTarget.DataBodyRange.Cells(rowNew.Index, tblTarget.ListColumns("VAT Rate").Index) = Range("VAT_Rate").Value   
tblTarget.DataBodyRange.Cells(rowNew.Index, tblTarget.ListColumns("Commission Rate").Index) = Range("Default_Commission_Rate").Value       
'Positioning the cursor on first entry field   
tblTarget.DataBodyRange.Cells(rowNew.Index, tblTarget.ListColumns("Contract").Index + 1).Select
CloseSub:
    ActiveSheet.Protect
    Exit Sub
FailedAddRow:
    msgbox "Failed to add new row to the table."   
GoTo CloseSub
End Sub
Thank you!

Answer 1

I set up a dummy table with same table name and column headers plus 3 named ranges for the values to be inserted and the code works fine. I suggest that if the fields are left blank then they are not getting values from the named ranges. Are you sure the
named ranges are pointing to the correct cells with the required values?
Try inserting the following lines in prior to the problem lines and then run the code and then check the Immediate window to see if the named ranges actually returning values.
Debug.Print "Default_Insurance_Fees = " & Range("Default_Insurance_Fees").Value
Debug.Print "VAT Rate = " & Range("VAT_Rate").Value
Debug.Print "Default_Commission_Rate = " & Range("Default_Commission_Rate").Value
Regards, OssieMac