Add data in cell without overwriting preexisting data.

[Livin404]

Greetings. I can easily add text to a cell, but I have different macros in my project which potentially asks data to be placed in the same cell. I believe I will need something like an Else statement. The following macro works great on a blank cell. However, I would like it to have a // following the existing data if the cell is not empty. Thank You

Sub Step_Truck()
    Dim i As Long
    For i = 3 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    Select Case ActiveSheet.Cells(i, 3).Value
    Case "B757", "B75720", "B7772E", "B7673E", "MD011F", "B76720", "B76730", "A400M"
ActiveSheet.Range("E" & i) = "EXPECT TO STEP"
End Select
Next i
End Sub

 

[Larry Haydn]

    Select Case ActiveSheet.Cells(i, 3).Value
        Case "B757", "B75720", "B7772E", "B7673E", "MD011F", "B76720", "B76730", "A400M"
           '========================
           '   Check whether the cell is blank
           '========================
            IF Trim(ActiveSheet.Range("E" & i) = "" THEN  
                '==========
                '    Is blank
                '==========            
                ActiveSheet.Range("E" & i) = "EXPECT TO STEP"
            ELSE
                '============
                '    Is not blank
                '============  
                ActiveSheet.Range("E" & i) = ActiveSheet.Range("E" & i) & " // EXPECT TO STEP"
            END IF
    End Select

 

[Livin404]

    Select Case ActiveSheet.Cells(i, 3).Value
        Case "B757", "B75720", "B7772E", "B7673E", "MD011F", "B76720", "B76730", "A400M"
           '========================
           '   Check whether the cell is blank
           '========================
            IF Trim(ActiveSheet.Range("E" & i) = "" THEN 
                '==========
                '    Is blank
                '==========           
                ActiveSheet.Range("E" & i) = "EXPECT TO STEP"
            ELSE
                '============
                '    Is not blank
                '============ 
                ActiveSheet.Range("E" & i) = ActiveSheet.Range("E" & i) & " // EXPECT TO STEP"
            END IF
    End Select

It is wonderful thank you so much!!