Looping help to skip blank rows vba

[Vlr516]

I am moving data from a source sheet to my activesheet. When I do, any blank rows on my source sheet are copying over as well. I do not want this. I want on my activesheet for all the data to be compacted together. How do I do this--what am I missing in my code below?

Sub SkipBlankRows
Dim finalrow as long

finalrow = sourcesheet.cells(rows.count, 3).End(xlup).row

for i=6 to finalrow

If sourcesheet.cells(i,3)<> "" Then
Activesheet.Cells(i,3).value = sourcesheet.cells(I,3).value​

End if​

Next I
End Sub

 

[Vlr516]

2 billion, wow. I'm glad I don't have look through that much data on what I am doing.

Below is the code that worked for skipping the blank rows. At the end, I would like to copy the activesheet which is in the same workbook as the sourcesheet, and create its own file using a concatenation of the sourcesheet name and the activesheet name. I added the code to copy at the end below but I am not sure what to do next.

Sub SkipBlankRows
 Dim finalrow as long, I as Long, j as Long

 finalrow = sourcesheet.cells(rows.count, 3).End(xlup).row

 j=6                                 'this is the row my sourcesheet starts data
         for i=6 to finalrow          'this is the row my activesheet starts data[INDENT]        If sourcesheet.cells(i,3)<> "" Then
        Activesheet.Cells(i,3).value = sourcesheet.cells(I,3).value
        j=j+1
End if[/INDENT]
Next I

activesheet.copy

 End Sub

 

[Joe4]

Note that you can get some of the code you need by using the Macro Recorder (just turn on the Macro Recorder, and record yourself performing the steps manually).

You can capture the name of sheet names by using the name property, i.e.

Dim myName as String
myName = ActiveSheet.Name

See how far you can get with those two tidbits of information, and post back with your new code if you run into problems.