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

[pimind]

I am trying to insert the letter "E" into the first empty cell in Column BB on every worksheet in a workbook except Sheet1.

This is what I have so far, but no success in getting it to work. Any help is greatly appreciated.

Sub Macro3()

 
activeCell.FormulaR1C1 = "E"
Range(Selection, Selection.End(xlDown)).Copy Destination:=Dim wsSheet As Worksheet
 For Each wsSheet In ThisWorkbook.Worksheets.Range("BB" & Rows.Count).End(xlUp).Offset(1)
End Sub

[MarvinP]

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

[Alf]

Or like this perhaps?

Option Explicit

Sub InsertVal()
Dim i As Integer

For i = 2 To Sheets.Count

Sheets(i).Activate
If Range("BB" & Rows.Count).End(xlUp).Row = 1 And Range("BB1") = "" Then
    Range("BB1").Value = "E"
Else
    Range("BB" & Rows.Count).End(xlUp).Offset(1, 0) = "E"
End If

Next i
    
End Sub

Alf

[pimind]

Thank you Marvin P and Alf, Both codes work great. I went with Alf's because I was able to adapt it to my needs a little better. Thanks you both again.

[Alf]

Hi pimind

Thanks for feedback and rep.

Alf