I wasn't sure why you wanted two separate macros, but you could use the
lines below and break them up if you need to. I think this may
accomplish what you want.

Sub path()
Dim sk As String
sk = ActiveWorkbook.path & "/" & ActiveCell.Address(False, False)
ActiveCell.Value = sk
End Sub

Mark