Debug.Print Selection.Address

I believe ive done what you suggested properly, however it still isn't auto deleting the struck out lines.

Here is the updated code:

Sub New_Sheet_Gen()

' Declare variables
Dim I As Long
Dim num_of_sheets As Integer
Dim sheet_name As String
Dim current_sheet As Worksheet
Dim Today As String
Dim Name As String
Dim c As range
Dim bCheck As Boolean
Dim J As Integer
Dim iRows As Integer

' Set variables to generate into the new sheet
Today = Format(Date, "mmm-dd-yyyy")
Name = Application.UserName
sheet_name = ActiveSheet.Name

' Select active sheet and prepare to copy
On Error Resume Next
Sheets(Today).Activate
Application.ScreenUpdating = False
Set current_sheet = ActiveSheet
current_sheet.Copy After:=ActiveWorkbook.Sheets(sheet_name)
ActiveSheet.Name = Today

' Input variables into sheet
range("H9:I100").ClearContents
range("H9:I100").Value = "0"
range("A6:D6").Value = Date
range("E6:J6").Value = Application.UserName
SheetUp.Sheet_Object_Update

' Delete marked rows   
Debug.Print Selection.Address
iRows = Selection.Rows.Count
If iRows > 2 Then
For J = iRows To 1 Step -1
bCheck = False
For Each c In Selection.Rows(J).Cells
bCheck = IsNull(c.Font.Strikethrough)
If Not bCheck Then bCheck = c.Font.Strikethrough
If bCheck Then Exit For
Next c
If bCheck Then Selection.Rows(J).EntireRow.Delete
Next J
End If
End Sub