How to move cell to LEFT?

[Rampage598]

Currently using this to move one cell to right:
ActiveCell.Offset(1, 0)

I am not getting how to move one cell to left....

 

[Fluff]

Just put a minus sign in-front of the 1 (assuming you are not in col A)

 

[Joe4]

That will move one cell down, NOT one cell to the right.

This would move one cell to the right:

ActiveCell.Offset(0, 1)

This would move one cell to the left:

ActiveCell.Offset(0, -1)

The format of OFFSET is:
Offset(row, column)

 

[Fluff]

That will move one cell down, NOT one cell to the right.

Oops, obviously not had enough yet.

 

[Rampage598]

That will move one cell down, NOT one cell to the right.

This would move one cell to the right:

ActiveCell.Offset(0, 1)

This would move one cell to the left:

ActiveCell.Offset(0, -1)

The format of OFFSET is:
Offset(row, column)

i tried with this.... but why data is writing on above that cell?

 

[Rampage598]

That will move one cell down, NOT one cell to the right.

This would move one cell to the right:

ActiveCell.Offset(0, 1)

This would move one cell to the left:

ActiveCell.Offset(0, -1)

The format of OFFSET is:
Offset(row, column)

Expected Output

 

[Joe4]

Please post your ENTIRE code.
You have to be careful when using ActiveCell.
When things end going somewhere other than where you expect, it is usually because the ActiveCell isn't where you think it is when it hits that part of the code.
Very rarely do I ever use "ActiveCell" in my code (as you seldom ever need to use "Select" in your code).

 

[Rampage598]

Please post your ENTIRE code.
You have to be careful when using ActiveCell.
When things end going somewhere other than where you expect, it is usually because the ActiveCell isn't where you think it is when it hits that part of the code.
Very rarely do I ever use "ActiveCell" in my code (as you seldom ever need to use "Select" in your code).

Sub test1()
Sheets("FinalData").Select
lastCol = Split(Cells(2, Columns.Count).End(xlToLeft).Address, "$")(1)
Range("A2").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Running"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Cycling"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Strength(Mins)"
ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2," ""*Strength(Mins)*""",B3:" & lastCol & "3)"
ActiveCell.Offset(0,-1).Formula = "=Sumif($B$2:" & lastCol & "$2," ""*Cycling*""",B3:" & lastCol & "3)"
End Sub

 

[Joe4]

Yep, you have way too many "ActiveCell" and "Select" statements in your code, which can make it very hard to determine exactly where you are at any point in time simply by looking at the code.
Since there is something obviously wrong with it (since it is not working the way you want it to), I do not want to try to "guess" what you are trying to do exactly (as I would be basing that guess on potentially flawed logic in the code).

What would be most helpful is for you to walk us through an example, explaining it step-by-step.
Start off by posting an example of what your data looks like to start, being sure to include the row/column headers, so we can see EXACTLY where your data resides.
Then walk us through a detailed explanation of exactly what you would like your code to do, and exactly where it should be placing these values/calculations.

 

[Rampage598]

Yep, you have way too many "ActiveCell" and "Select" statements in your code, which can make it very hard to determine exactly where you are at any point in time simply by looking at the code.
Since there is something obviously wrong with it (since it is not working the way you want it to), I do not want to try to "guess" what you are trying to do exactly (as I would be basing that guess on potentially flawed logic in the code).

What would be most helpful is for you to walk us through an example, explaining it step-by-step.
Start off by posting an example of what your data looks like to start, being sure to include the row/column headers, so we can see EXACTLY where your data resides.
Then walk us through a detailed explanation of exactly what you would like your code to do, and exactly where it should be placing these values/calculations.

This is my excel file...........
after executing this code:

Sub test1()
Sheets("FinalData").Select
lastCol = Split(Cells(2, Columns.Count).End(xlToLeft).Address, "$")(1)
Range("A2").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Running"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Cycling"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Strength(Mins)"
ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Strength(Mins)*"",B3:" & lastCol & "3)"
ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Cycling*"",B3:" & lastCol & "3)"
ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Running*"",B3:" & lastCol & "3)"
End Sub

After running this code it will add 3 headers to right side of last column Running , cycling, Strength(mins)

Then first it will add formulas according to this sequence
1) Strength(Mins): ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Strength(Mins)*"",B3:" & lastCol & "3)"
2) Cycling: ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Cycling*"",B3:" & lastCol & "3)"
3) Running: ActiveCell.Offset(1, 0).Formula = "=Sumif($B$2:" & lastCol & "$2,""*Running*"",B3:" & lastCol & "3)"