How do I incorporate my workbook path in my VBA?

ShowWbkPaths.bas

Sub ShowUser()

ActiveCell.Value = Environ("UserName")                                                 'returns the domain name
ActiveCell.Offset(1, 0).Value = Application.UserName                                   'the user registered name
ActiveCell.Offset(2, 0).Value = Application.UserLibraryPath                            'location where COM-Addins are installed
ActiveCell.Offset(3, 0).Value = "C:\Users\" & UCase(Environ("UserName")) & "\Desktop"  'returns a custom directory
ActiveCell.Offset(4, 0).Value = ActiveWorkbook.FullName                                'the path + the name of the file <-- assimes file has been saved
ActiveCell.Offset(5, 0).Value = ActiveWorkbook.name                                    'returns the name of the file alone
ActiveCell.Offset(6, 0).Value = ActiveWorkbook.path                                    'returns the path where it is saved
ActiveCell.Offset(7, 0).Value = Application.PathSeparator                              'returns the dash

'hp
'Angelina
'C:\Users\hp\AppData\Roaming\Microsoft\AddIns\
'C:\Users\HP\Desktop
'C:\Users\hp\Google Drive\Analytics\Blogging\Excel Spreadsheets\Get it Right in Excel Workshop.xlsb
'Get it Right in Excel Workshop.xlsb
'C:\Users\hp\Google Drive\Analytics\Blogging\Excel Spreadsheets
'\
 
End Sub