Deleting rows in Excel based on criteria via Access VBA -

Deleting rows in Excel based on criteria via Access VBA -

i working on module format excel spreadsheet import access. spreadsheet comes source 7 rows of header data, info need, , 4 rows of jibberish below data. far have gotten through deleting header info:

sub excelformat() dim excelapp object dim excelwb object dim excelws object set excelapp = createobject("excel.application") set excelwb = excelapp.workbooks.open("z:\data\test.xlsx") excelapp.screenupdating = true excelapp.visible = true set excelws = excelwb.worksheets("testdata") excelws.rows("1:7").delete

i having problem selecting first blank cell in , deleting , 4 rows beneath it. in advance.

first delete lastly 4 rows , after header;

with activesheet lastrow = .cells(.rows.count, "a").end(xlup).row .rows(lastrow - 4 & ":" & lastrow).delete .rows("1:7").delete end

excel vba excel-vba access-vba