xxxxxxxxxx
Dim ExR As Range
Set ExR = Selection 'current location in Excel Spreadsheet
Range("A5").Select
ExR(1, 1) = "Date and Time"
ExR(1, 2) = "Active Window"
row = 2
'useful for loops when a spreadsheet needs new rows added
' at end of loop need "row = row + 1"
'see use in my Macro L