Need help sorting macro that's causing an error

Hi all,

I've been trying to created a workbook to store contact information! "File attached"

I have 3 sheets, well 2 sheets really that related to this error, a database sheet and an interface where I can load contact information, when running the macro to update a contact, it generates an error on another macro that refreshes the database! Not sure I am explaining myself well, bellow is the code that generates the error, line 6 .Range("D28:O".............

Hope someone can assist me with this as I am out of ideas why this error happens! and also it seems to be causing the contact data to shift one row to the right on the contact database

Sub RefreshContactTable()
'SyncFromDatabase
With Sheet1
.Range("D28:O9999").ClearContents
LastRow = Sheet3.Range("A99999").End(xlUp).Row
.Range("D28:O" & LastRow + 26).Value = Sheet3.Range("A2:L" & LastRow).Value 'Copy Over Data
End With
End Sub