Thread: Find empty cell then insert range in active row
View Single Post
  #2   Report Post  
Keyrookie Keyrookie is offline
Member
  
Posts: 84
Default
Quote:
Originally Posted by Keyrookie View Post
Need help please!

Below is my current code that I believe can be more efficiently executed. I have the times in Range ("F50:I50") that I would like inserted into the next blank row in the range (F9:I16). Thanks for your help.


Range("f9:f16").Find("").Activate

ActiveCell.Value = "8:00 AM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "12:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "1:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "5:00 PM"


Found a faster approach but still wanting to speed up the macro. Here's my current code:

Range("F9:F16").Find("").Activate
Range("F50:I50").Copy: ActiveCell.PasteSpecial Paste:=xlPasteValues
Reply With QuoteReply With Quote