Update Worksheet With Changes

I have this issue, I am trying to create a spreadsheet which updates one (Database) based on another (Sheet1), then log's the changes on a third sheet (log), I keep getting the error 1004 message, but I can't see what is wrong with my code here it is, and file is attached also:

Option Explicit
'Update Database
Private Sub CommandButton2_Click()
Dim fincom As Variant, subcat As Variant, fixture As Variant, space As Variant
Dim i As Integer, x As Integer, postSpace As Variant, change As Variant
Dim store As Variant, k As Variant, log As Boolean, Target As Range, OPostSpace As Variant
Application. ScreenUpdating = False
'On Error Resume Next
fincom = Worksheets("Database").Range("B2:B8").Value
subcat = Worksheets("Database").Range("C2:C8").Value
fixture = Worksheets("Database").Range("D2:D8").Value
postSpace = Worksheets("Database").Range("E2:E8").Value
OPostSpace = Worksheets("Sheet1").Range("G4:G8").Value
store = Worksheets("Database").Range("A2:A8").Value.....................