Run time error type mismatch 13

[kieranm105]

Hi
I have the following code and I get the Run time error type mismatch 13 on the line below.

Code:

Please Login or Register  to view this content.

Error line:

Please Login or Register  to view this content.

I'm not sure what has changed now as it was running fine and did everything I wanted the code to do, now getting this error??
I have inserted some cells and columns on the main sheet, is it something to do with this?

Any ideas?

Thanks
Kieran

[AB33]

This could be empty

Set rngData = ThisWorkbook.Worksheets("Command").Cells(1).CurrentRegion

Or there is/are empty rows in between the cells as the code uses currentregion

[kieranm105]

Hi AB33
How do I fix this?
I did insert some new empty rows and columns to the sheet to make it look better?
Is this what the problem is?
Kieran

[AB33]

Assuming that the range is from A2 to Z

ThisWorkbook.Worksheets("Command").Range("A2:Z" & Worksheets("Command").Range("A" & Rows.Count).End(xlUp).Row)

Change the coloured column if any column other than A is the largest column, ie has the lowest row at the bottom.

[kieranm105]

Thanks AB33 thats worked.
Kieran