kek

Private Sub CommandButton1_click()

Dim wbk1 As Workbook, wbk2 as Workbook
dim strFirstFile as string, strSecondFile as string

strFirstFile = "Desktop:\dataadd.xlsm"
strSecondFile = "Desktop:\newcablelist.xlsm"

Set wbk1 = Workbooks.Open(strFirstFile)
With wbk.Sheets("database")
.Range("A:D").Copy
End With
Set wbk2 = Workbooks.Open(strSecondFile)
With wbk2.Sheets("Sheet4")
.Range("A:D").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With
wbk2.SaveAs strSecondFile
wbk2.Close
wbk1.Close

End Sub