Copy and Paste from Active cells

[Bones55]

I have a script that currently copies the “Active Cell” which will always be between K123:K149 depending on which one is active. These cells hold the users first name which is copied into the last row of Column “C”.
What I need to do is copy the cell to the right of K123 (L123) at the same time and copy it to Column “B”
Example:
K123 “active cell” shows Jane Doe, in L123 is her team name “Ocean_Channel_Services” I need to copy her name to the last row of column “C” example “C123” and the Team name to “B123”

This is a partial script…
Sub Testing()

ActiveCell.Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Role Call").Range("L122").Value = "Type Name Here"
Range("L122").Select

End Sub

How do I get the script to understand that I also want her team copied and pasted in "B" row?

Thanks for any assistance.

 

[Bones55]

Update to this initial post I found I can use this script to copy both K123 and L123, but can't figure out how to paste L123 In column B and K123 in column C...It would be too much work to change all the formulas to make this paste first name in "column C" and group name in "Column B"


this is what I have so far which works, but puts username in column B and group in column C
Sub CopyActCell()
Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[Fluff]

How about

Sub Swap2()
   Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Array(ActiveCell.Offset(, 1), ActiveCell)
End Sub

 

[Bones55]

Excellent that worked great thank you very much!!

 

[Fluff]

Glad to help & thanks for the feedback