You can Change the copy and pastecode to something like this

Sub Button1_Click()
'Range("A1:I" & lastrow).Copy
' Sheets("Medical 2009").Activate
' lastrow = Sheets("Medical 2009").Cells(Cells.Rows.Count, "A").End
(xlUp).Row
' Range("A" & lastrow + 1).PasteSpecial Paste:=xlValues
Dim r As Range
Dim ws As Worksheet
Application.ScreenUpdating = False
Set ws = Worksheets("Medical 2009")
Set r = Range("A1", Range("I65536").End(xlUp))
r.Copy
ws.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues

Application.CutCopyMode = false
End Sub