Copy of specific data from one sheet to another

[mahmoudguda29]

Hello guys , i have 2 sheets in the same workbook ( A & B)
I want to copy entire columns (A,C,D,E) from sheet A to sheet B excluding rows starts with (e) cell text
Plz help with a vba code

 

[DanteAmor]

You forgot to specify some information.

excluding rows starts with (e) cell text

Exclude the row starting with "E" but from which column?
Or from any of the columns, that is, if there is "E" in column A or C or D or E, then exclude the row.
In which row does the data begin?
And in which cell do you want to start pasting the data?

 

[mahmoudguda29]

The "e " in column A
Pasting data in the new sheet will start at A1 cell

 

[DanteAmor]

In which row does the data begin?

You still don't put in all the necessary information, but I'm going to assume that the data starts in row 2.

Try this:

Sub Macro1()
  Dim lr As Long
  With Sheets("A")
    lr = .Range("A" & Rows.Count).End(3).Row
    .Range("A1:E" & lr).AutoFilter 1, "<>e"
    .Range("A1:A" & lr & ",C1:E" & lr).Copy Sheets("B").Range("A1")
    .Range("A1:E" & lr).AutoFilter
  End With
End Sub

 

[mahmoudguda29]

Thnx alot works very fine
But doesn't keep columns width ..
& What if i need to filter blank cells instead of (e) text cells?