syntax issue with VBA: cut/paste into offset cell

[ansvk1]

Hi there,
i am trying and trying but unable to get the simple vba code to work correctly for the below. I wanted to:

1. cut from active cell and
2. paste that value only into offset cell (1,-1)
3. unbold the text

Can someone please help? Thanks in advance!

Sub PreCR_FindingCat_creation_cut_paste()
'cntrl+Shift+C
ActiveCell.Cut
ActiveCell.Offset(1, -1).Paste
Application.CutCopyMode = False
With ActiveCell.Select
Bold = False
End With
End Sub

 

[John_w]

One way:

Sub Macro2()
    With ActiveCell
        .Offset(1, -1).Value = .Value
        .Offset(1, -1).Font.Bold = False
        .ClearContents
    End With
End Sub

 

[Rick Rothstein]

This should also work...

Sub CutActiveCellDownOneAndToTheLeftOneAndBold()
  ActiveCell.Cut ActiveCell.Offset(1, -1)
  ActiveCell.Offset(1, -1).Font.Bold = True
End Sub

 

[ansvk1]

both responses worked fine, Thanks guys!