|re: I'm assuming that I should be able to replace "Row" with "Column"? what would nxtRW become in this instance?|
Not exactly. The following code will find the next empty Column in Row 1 and place the value from A1 into the next empty cell in Row 1.
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
nxtCol = lastCol + 1
'nxtCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Cells(1, nxtCol) = Range("A1")
re: Strangely, using the code only copied the data into the next row down and then stopped. Shouldn't this keep going indefinitely?
There is nothing in the code that tells it to loop. If you have the code assigned to a "button", it simply executes the instructions once per click. If you want it to continually place the time in the next empty cell, you need to loop it, or call it from the timer macro each time A1 updates.
Something has to tell the code to place the updated time in the next Column - either the user or some other piece of code.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.