how to extract data and shift to another sheet + ignore row that include blanks

[AYSHANA]

hello
good day!

i would like to ask if anyone have an idea how can i extract my rows into another sheet without other rows that include blanks.

i have a big data and i would to extract only that includes all the details.

thank you.

example of my data.

COMBINE.xlsx
	A	B	C	D	E	F	G	H
1	Acc No#	PT Number	PT Name	UNIT NUMBER Allocated in BGRPS order	BLOOD BGRP	UNIT ALLOCATED IN SYSTEM	UNIT ISSUED IN SYSTEM	Reason
2	W483938	1	md
3	M328410	2	df
4	F390799	3	dd
5	H436345	4	mj
6	X338780	5	ss
7	T788912	6	g	U240123006330	O Positive	15-02-23 9:50	??	only this raw I want to shift in another sheet
8	W468177	13898221	k	U240123006330	O Positive	15-02-23 9:50	??	only this raw I want to shift in another sheet
9	M323080	14955539	ll
weekly

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C2:C30000	Cell Value	duplicates	text	NO

 

[mumps]

Change the name of the destination sheet (in red) to suit your

Sub CopyData()
    Application.ScreenUpdating = False
    With Sheets("weekly")
        .Range("A1", .Range("H" & .Rows.Count).End(xlUp)).AutoFilter Field:=4, Criteria1:="<>"
        .AutoFilter.Range.Copy Sheets("Sheet2").Range("A1")
        .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

needs.

 

[AYSHANA]

it is showing run time error 9

what should i do

 

[AYSHANA]

okay it works
thank you.

 

[mumps]

You are very welcome.