Macro to insert a letter into first empty cell in a column on all sheets

Hi pimind,

Try this code:

Sub PutInE()
    Dim ShtCtr As Double
    Dim BlankRow As Double
    For ShtCtr = 2 To Worksheets.Count
        If Cells(2, "BB") = "" Then Cells(2, "BB") = "Fill"
        BlankRow = Cells(1, "BB").End(xlDown).Row + 1
        Cells(BlankRow, "BB") = "E"
    Next ShtCtr
End Sub