VBA code clean up help

Try

Option Explicit

Sub Button2()
'
' Macro for entering Button 2 data into Database
   Range("R5").End(xlDown).Offset(1, 0) = Range("D5").Value
End Sub