FORKERT ADRESSE I MAKRO

Når jeg afspiller denne makro virker den godtno men sætter jeg makroen ind i en komandoknap får jeg en fejl ,komando knappen er i arket indtastning så det er sikker noget med adressen hvordan skal koden så se ud ?
Sub Macro1()
Dim rCell As Range
Dim iRow As Integer, iX As Integer
    Worksheets(\"DATABASE\").Select
    Range(\"A65536\").End(xlUp).Select
    iRow = ActiveCell.Row
For Each rCell In Worksheets(\"INDTASTNINGS ARK\").Range(\"S1:S26\")
    iX = iX + 1
    Worksheets(\"DATABASE\").Cells(iRow + 1, iX) = rCell
Next rCell

End Sub