Moving data from one cell to another

[Iggy 2]

Hi,

I am trying to create a macro that will select data cut it and paste it one cell up and one cell to the right.

To select the data i am using a filter, i do not know if there is a better way please help

here is what i have so far

ActiveSheet.Range("$A$2:$W$200").AutoFilter Field:=7, Criteria1:="Total:" Range("G2:G300").Select
Selection.SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Range("$A$2:$W$200").AutoFilter Field:=7
Selection.Cut Destination:=Range.Offset(-1, 1)

The offset gives me the error compile error argument not optional

Thanks in advance.

Juan

 

[Iggy 2]

Is there a way to set my range starting point as my selection before i offset?

ActiveSheet.Range("$A$2:$W$200").AutoFilter Field:=7, Criteria1:="Total:"
    Range("G2:G300").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    ActiveSheet.Range("$A$2:$W$200").AutoFilter Field:=7
    Selection.Cut Destination:=Range(Selection).Offset(-1, 1)

 

[Iggy 2]

Ok i got a bit further

Selection.Cut Destination:=ActiveCell.Offset(-1, 1)

Is giving me the error "this cant be done on a multiple range selection" Is there a way to circumvent that other than writing the code for one cell at a time?

 

[Iggy 2]

Ok I figured it out on my own. I copied instead of cutting.