Hallo Sandra,
ich hoffe, es geht Dir auch gut, die Anfrage ist etwas ungewöhnlich. Trotzdem:

Sub sonderbar()
Dim zeile As Long, found As Object, firstaddr As String
  With ActiveSheet
'1. Lösche alle Zeilen im gesamten Arbeitsblatt wo die Zellen in Spalte A leer sind.
    For zeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
      If IsEmpty(.Cells(zeile, 1)) Then .Rows(zeile).Delete shift:=xlUp
    Next zeile
'2. Überschreibe den Inhalt in A2 mit "Apfel"
    .Range("A2") = "Apfel"
'3. Überschreibe den Inhalt in B2 mit "Birne"
    .Range("B2") = "Birne"
'4. Suche im gesamten Arbeitsblatt nach dem Wort "Hund". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
    Do
      Set found = .Cells.Find(what:="Hund", lookat:=xlWhole, LookIn:=xlValues)
      If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
    Loop Until found Is Nothing
'5. Suche im gesamten Arbeitsblatt nach dem Wort "Katze". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
    Do
      Set found = .Cells.Find(what:="Katze", lookat:=xlWhole, LookIn:=xlValues)
      If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
    Loop Until found Is Nothing
'6. Suche im gesamten Arbeitsblatt nach dem Wort "Maus". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
    Do
      Set found = .Cells.Find(what:="Maus", lookat:=xlWhole, LookIn:=xlValues)
      If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
    Loop Until found Is Nothing
'7. Suche im gesamten Arbeitsblatt nach dem Wort "Frösch" und ersetze es jedes mal durch das Wort "Frosch".
    Do
      Set found = .Cells.Find(what:="Frösch", lookat:=xlPart, LookIn:=xlValues)
      If Not found Is Nothing Then .Range(found.Address) = Replace(.Range(found.Address).Text, "Frösch", "Frosch")
    Loop Until found Is Nothing
  End With
End Sub

Gruß der AlteDresdner