Reputation: 41
Sheet6.Range("A8:T8").Value = Sheet1.Range("A14:T14").Value
The above code copy pastes those values.But When I click the button next time I want to save my data in new row i.e.
Sheet6.Range("A9:T9").Value
How to do that?
Upvotes: 1
Views: 741
Reputation: 152505
You would need to find the next open row:
Dim nxtrw as long
nxtrw = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row + 1
Sheet6.Range("A" & nxtrw & ":T" & nxtrw).Value = Sheet1.Range("A14:T14").Value
Upvotes: 1