Help copy paste problem

[Gnaum]

Hello

I have one problem with macros, problem is simple i want to copy column A,b,c,d till the end of D and paste in new excel document. Problem are blank rows in column A.
One more think column finish in different rows every time.
Now is 21 other time 50 next 30.

[daboho]

Sub Macro3()
Range("A1:F21").AutoFilter
ActiveSheet.Range("$A$1:$F$21").AutoFilter Field:=1, Criteria1:="<>"
Range("A1:F21").Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$F$21").AutoFilter Field:=1
ThisWorkbook.Activate
End Sub

[Gnaum]

Nop i need blank rows to stay in column A and f21 is always different i need something like this
Range("A1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

But with this one i copy A till first blank row

[jaslake]

Hi Gnaum

Something like this perhaps...

Please Login or Register  to view this content.

[Gnaum]

Thanks @jaslake this one helped me alot.
Now i have to paste this in another document but it have to search for word in column A then paste in same row in column B.

Example if word "pony" is in A30 then paste to B30 if "pony" is in A40 then paste to B40

[jaslake]

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.

[jaslake]

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.