Sub sisumuutus()
  Range("d5").CurrentRegion.Range("b1").Font.Italic = True
  Range("d5").CurrentRegion.Rows(Range("d5").CurrentRegion.Rows.Count).Font.Bold = True
End Sub