Petar Willhite
New Member
Hello all I am stuck and tying to figure out how to fix the code below. Basically the code finds the next available Cell in Column B then pastes certain text there. But I need to add an If statement that stop the Macro and alert the user if the Cell to the left is blank.
Thanks for the help!
Thanks for the help!
Code:
If IsEmpty(Range("A" & Rows.Count).End(xlToLeft).Value) = True Then
Sheets("Sheet1").Select
Range("B" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "AAA"
Sheets("Sheet1").Select
Range("B20").Select
Else
MsgBox "System Code is empty is empty"
End If
Last edited by a moderator: