VBA Code to write cell values to another sheet

Question

Hi!&nbsp;I have the below VBA code that takes cell values from rows B5:U5, and then writes a copy of that data to another set of columns to store a 'history' (these figures then get updated from a query when new data arrives).&nbsp;I now want to modify this so it writes the data to another sheet in the excel file to tidy things up, and then I can have a "data" worksheet I can then use.&nbsp;&nbsp;&nbsp;Public Sub ButtonOnClick()
    Application.EnableEvents = False
    Me.Range("W" &amp; Me.Rows.Count).End(xlUp).Offset(1).Resize(, 20).Value = Me.Range("B5:U5").Value
    Application.EnableEvents = True
End Sub&nbsp;&nbsp;&nbsp;How would I modify this to no longer paste this data in W:AQ, but instead pastes it to AnotherWorksheet!: A:U?&nbsp;All of the solutions I have tried to implement have given me errors so far.&nbsp;Many thanks in advance!&nbsp;

hansvogelaar · Accepted Answer

OJBridger&nbsp;
Try
Public Sub ButtonOnClick()
    Application.EnableEvents = False
    With Worksheets("History")
        .Range("A" &amp; .Rows.Count).End(xlUp).Offset(1).Resize(, 20).Value = Me.Range("B5:U5").Value
    End With
    Application.EnableEvents = True
End Sub

Forum Discussion

VBA Code to write cell values to another sheet

1 Reply

Resources