Copy data from one sheet to another while skipping blanks and certain rows

[tlc1980]

Hi. I'm trying to copy data from one sheet to another, but I want it to skip blanks and a row that has data on it.

I want C9:C12, C14:C17, C19:C22, C24:C27, and C29:C34 from Sheet1 to be moved to A8:A33 on Sheet 2.

Rows 13, 18, 23, and 28 on Sheet1 need to be left out.

Thank you in advance for your help!

 

[aamir]

I am reading from a sheet named dps from cells (HR282:AHR388, AHT282:AHT388, AHV282:AHV388, AHX282:AHX388, AHZ282:AHZ388, AIB282:AIB388, AID282:AID388, AIF282:AIF388, AIH282:AIH388, AIJ282:AIJ388, AIL282:AIL388, AIN282:AIN388, AIP282:AIP388, AIR282:AIR388, AIT282:AIT388, AIV282:AIV388, AIX282:AIX388,AIZ282:AIZ388, AJB282:AJB388, AJD282:AJD388, AJF282:AJF388, AJH282:AJH388, AJJ282:AJJ388, AJL282:AJL388, AJN282:AJN388, AJP282:AJP388, AJR282:AJR388, AJT282:AJT388, AJV282:AJV388, AJX282:AJX388, AJZ282:AJZ388, AKB282:AKB388, AKD282:AKD388, AKF282:AKF388,AKH282:AKH388, AKJ282:AKJ388, AKL282:AKL388, AKN282:AKN388) in another sheet (sheet4) in column A.

But when i divided above vb code into Sub Copy_Stuff1(), Sub Copy_Stuff2() & Sub Copy_Stuff3() it was not reading data after 17 column.

 

[aamir]

i m now using this one ..


<code style="margin: 0px; padding: 0px; font-style: normal; font-variant: normal; font-weight: normal; font-size: 1em; line-height: normal; font-family: Monaco, 'Courier New', monospace;">Sub Copy_Stuff1() Dim cell As Range, r As Long r = 2 Application.ScreenUpdating = False Sheets("Sheet4").Range("A2:A3000").ClearContents For Each cell In Sheets("dps").Range("AHR282:ALF388 ") If Not IsNumeric(cell.Value) And Len(cell.Value) > 0 Then Sheets("Sheet4").Range("A" & r).Value = cell.Value r = r + 1 End If Next cell Application.ScreenUpdating = True End Sub</code>

Can i link date from location (AHR6:ALF6) when i copy to sheet4 in column B?