ActiveCell to Column J

[HockeyDiablo]

Sub macro1()

If IsEmpty(ActiveCell.Offset(0, 10).Value) = True Then                     'checks to see if the field is blank first

ActiveCell.Cut Destination:=Cells(ActiveCell.Columns("j"))      '  <-----heres where I go fuzzy, had it working from colB to J, but my colB will change

ActiveCell.Offset(1, 0).Select                                                        'Just wanted to go to the next row

Else
    MsgBox "There is data in Column J already"
End If
    
End Sub

I want any activecell "regardless of column" to be cut and pasted in column J, the row will remain the same.

 

[MARK858]

Try...

Destination:=Cells(ActiveCell.Row, "j")

 

[HockeyDiablo]

Try...

Destination:=Cells(ActiveCell.Row, "j")

Exactly what I was looking for, thank you kindly.

 

[HockeyDiablo]

Try...

Destination:=Cells(ActiveCell.Row, "j")

Could VBA insert into Col"J" if there is already text inside? and separate that by a , or similar symbol?

Example: Hockey 'was already in col"J"', [run macro] whilst Football exists in activecell, Result: Hockey, Football

 

[MARK858]

Cells(ActiveCell.Row, "j").Value = Cells(ActiveCell.Row, "J").Value & ", " & ActiveCell.Value

 

[HockeyDiablo]

Cells(ActiveCell.Row, "j").Value = Cells(ActiveCell.Row, "J").Value & ", " & ActiveCell.Value

Wow, you have amazing skills. Thank you so much for sharing that.

Cheers