Macro functioning correctly

H28Sailor · #1 12-11-2016, 11:01 AM

I have the following code:-

The initial part of the routine IS working perfectly, but the last part of the VBA routine is not working - i.e. the deleting rows aspect
The 'Copy Data' button sits on the first two rows
Any advice on how to debug would be welcome

Code:

Sub CopyRows()
' copy all rows of data in worksheet 'temp' to the appropriate worksheets
     Dim iLooper As Long, NextRow As Long, ws As Worksheet, strSheet As String
     With Worksheets("temp")
         For iLooper = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
             If UCase(Trim(.Cells(iLooper, "B").Value)) Like "ENROLLMENT*" Then
                 strSheet = "ENROLLMENT"
             ElseIf UCase(Trim(.Cells(iLooper, "B").Value)) Like "WEEK*" Then
                 strSheet = .Cells(iLooper, "a").Text
             Else
                 strSheet = ""
             End If
             If strSheet <> "" Then
                 Set ws = Worksheets(strSheet)
                 NextRow = ws.Columns("B").Find("*", , xlValues, , 1, 2).Row + 1
                 ws.Rows(NextRow).Insert
                 ws.Cells(NextRow, "A").Resize(, 8).Value = _
                       .Cells(iLooper, "A").Resize(, 8).Value
             End If
         Next
     End With
 ' delete all rows of data in worksheet 'temp'
 Dim r As Long For r = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
   If Cells(r, 1) = "" Then Rows(r).Delete
 Next r
 End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to invoke the macro correctly in the workflow	smndnm	Word VBA	6	07-08-2014 03:13 AM
Figure Table not functioning properly	justphilip2003	Word	1	01-21-2014 01:15 PM
Image proportional resize not functioning!	alexfcm	PowerPoint	0	09-27-2012 07:22 AM
Insert->Object feature not functioning when Word is saved as PDF	amrita	Word	2	04-20-2010 02:42 PM
Outlook not functioning	bordterr	Outlook	1	12-17-2009 11:05 PM