Here is another question about batching: how does this work?

Sub ClueBatch()

Dim name As String
Dim room As String
Dim weapon As String
Dim myrow As Integer

Cells(1, 1).Activate
myrow = 1


Do Until IsEmpty(ActiveCell)
DoEvents
name = ActiveCell.Value
room = ActiveCell.Offset(1, 0).Value
weapon = ActiveCell.Offset(2, 0).Value
Cells(myrow, 3).Value = name & "in the" & room & " with the " & weapon & "."

 ActiveCell.End(xlDown).End(xlDown).Activate
 
myrow = myrow + 1

Select Case weapon

Case Is = "Candlestick"
  Range("F2").Value = Range("F2").Value + 1
Case Is = "Dagger"
  Range("F3").Value = Range("F3").Value + 1
Case Is = "Lead Pipe"
  Range("F4").Value = Range("F4").Value + 1
Case Is = "Revolver"
  Range("F5").Value = Range("F5").Value + 1
Case Is = "Rope"
  Range("F6").Value = Range("F6").Value + 1
Case Is = "Wrench"
  Range("F7").Value = Range("F7").Value + 1
End Select

Loop

Range("F2:F7").Select
Range("G2").Value = Range("F2") / WorksheetFunction.Sum(Selection)
Range("G3").Value = Range("F3") / WorksheetFunction.Sum(Selection)
Range("G4").Value = Range("F4") / WorksheetFunction.Sum(Selection)
Range("G5").Value = Range("F5") / WorksheetFunction.Sum(Selection)
Range("G6").Value = Range("F6") / WorksheetFunction.Sum(Selection)
Range("G7").Value = Range("F7") / WorksheetFunction.Sum(Selection)
Range("E10").Value = WorksheetFunction.Min(Selection)



End Sub