Snasui Excel Forum

Code: Select all

'Other code
Dim t As Variant
 
HeadingRow = WF.Range("FormsFirstLine").Row
CurrentRow = HeadingRow

For Each AmountCell In WI.Range("InputHospitalCharges").Cells
    If AmountCell <> "" And AmountCell <> "Include" And AmountCell <> "0" Then
        WF.Cells(HeadingRow, 1) = "Hospital Charges"
        WF.Cells(HeadingRow, 1).Font.Bold = True
        WF.Cells(HeadingRow, 1).Font.Underline = True
        WF.Cells(HeadingRow, 5) = ""
        CurrentRow = CurrentRow + 1
        WF.Cells(CurrentRow, 1) = AmountCell.Offset(0, -2)
        WF.Cells(CurrentRow, 1).Font.Underline = False
        WF.Cells(CurrentRow, 5) = AmountCell.Text
        If InStr(WF.Cells(CurrentRow, 1), "Package") Then
            l = l + 1
            t = WF.Cells(CurrentRow, 1).Resize(1, 5)
            WF.Cells(CurrentRow, 1).Resize(1, 5).Value = _
                WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value
            WF.Cells(HeadingRow + l, 1).Resize(1, 5).Value = t
        End If
    End If

Next
            
If HeadingRow <> CurrentRow Then HeadingRow = CurrentRow + 2
CurrentRow = HeadingRow

l = 0
'Other code