Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se ejecute recién cuando dicha celda tenga dato.

¿Podrían ayudarme?

Sub cu_GRABAR_COMO()
If MsgBox("¿Quieres guardarlo?", vbDefaultButton1 + vbYesNo, "Guardar archivo en formato 'xlsx'") = _
vbNo Then End
Application.CopyObjectsWithCells = False
Dim di As String
Dim nm As String
Dim fp As String
Dim fn As Variant
Dim wb As Workbook, wx$
Set wb = ActiveWorkbook
di = wb.Path
fp = wb.FullName
wx = Left(wb.Name, Len(wb.Name) - 4) & "xlsx"
nm = wx
nm = InputBox("Nombre del archivo: ", "Introduce el ...", wx)
' Sheets(Array("Curso", "Datos")).Select
' Sheets("Curso").Copy
Sheets(Array("Curso", "Datos")).Copy
fn = Application.GetSaveAsFilename(InitialFileName:=nm, _
FileFilter:="Excel Workbook (*.xlsx), *.xlsx")
If fn <> "" Then
ActiveWorkbook.SaveAs fn
End If
ActiveWindow.Close
Application.DisplayAlerts = True
Application.CopyObjectsWithCells = True
End Sub

[url=https://foro.todoexcel.com/posts/359236/mark-solution]