Thread: Create macro to paste rows of text cells to lower end of other row
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tim Williams Tim Williams is offline
external usenet poster
  
Posts: 1,588
Default Create macro to paste rows of text cells to lower end of other row
To find the first empty cell in a column you can use (eg)

***************
dim c as range, s as worksheet
set s=thisworkbook.sheets("Sheet1")
set c = s.cells(s.rows.count,1).end(xlUp).offset(1,0)
***************


c would be the first empty cell in column A

Tim




"RodFerd" wrote in message
...
I have a set of four rows for each day of the week having several fixed
text
columns. How do I write a macro to add further weeks to the end of the
previous week?


Reply With QuoteReply With Quote