Issue with code - Need Help!

[begoldar]

Hi Everyone,

So, for some reason my code isn't working properly. I want it to skip over the blank cells when copying over the data from one worksheet to the other, but it's not doing it. Any suggestions? Thanks!

Dim x As Range, Allele As Range
Dim NextCell
Set x = Worksheets("Class II").Rows(1).Find(cmbLotII)
Set NextCell = Worksheets("Sheet1").Cells([3], [2])

If Not x Is Nothing Then Set Allele = x.Offset(1).Resize(99)
For Each d In Allele
If Not d = "" Then
NextCell.Value = (d.Value)
End If
NextCell.Select
Set NextCell = ActiveCell.Offset(0, 1)
Next d

 

[Kenneth Hobson]

Please post code between tags when you click the # button.

You have several issues your code. Please state what you want to do.

e.g. Copy Sheet1!A1 to the last cell with data in column A to Sheet2!A1. Only copy cells with data. Data example: For Sheet1 with last data in A4 but no data in A2, copy A1, A3, and A4 to Sheet2!, A1, A2, A3.