cut and paste into cisco device (equivalent to pasting into notepa

i have the following formula in one column (below is taken from one cell in
the column)
="int gig"&" "&G62&"/"&H62&CHAR(13)&(CHAR(10))&"description"&"
"&N62&"P"&O62&"P"&P62&" "&Q62&CHAR(13)&CHAR(10) and i use the following
macro to cut and paste this into a cisco device (or you can use notepad as an
example)
Sub TestMacro()
Dim objClip As DataObject
' Microsoft Forms 2.0 Object Library
' needs to be selected as a Reference (on the VBA Tools menu)
Dim strTmp As String
Set objClip = New DataObject
strTmp = ActiveCell.Value
objClip.SetText strTmp
objClip.PutInClipboard
Set objClip = Nothing
End Sub
Even though this currently works by pasting into the cisco device 2 seperate
lines without the quotes if I didnt use the macro--I have an issue where I
need to select multiple lines in the column--today it could be line 8,9,10
and tomorrow it could be 11,12 in the spreadsheet. is it possible to select
mulitple lines using this macro and also is it possible that when i open the
worksheet the macro automatically runs instead of having to run it for each
line?