I am trying to use some code to copy a column range that is in WKSHT 1 to WKSHT 2, using the trigger of the last value input - then delete the data in WKSHT 1 so that the next set of values can be input.

The values posted to WKSHT 2 will be in column 2, and then the next set of values in column 3, and then 4 and so on.

Here is the code that I am trying to use:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 31 And Target.Cells.Count = 2 Then
Target.Range(b23, b31).Copy Destination:=Sheets(2).Cells(1, Column.Count).End(xlUp).Offset(0, 1)
Target.Range(b23, b31).Delete shift:=xlUp
End If
End Sub

I copied this from a similar program which did the same function for "rows", but copied the entire row instead of a range. When I run it I get an error '424' in the instruction starting with Target.R...... and ending ....Offset(0,1)