Add Delete function to my Copy Code

[Arek]

Good Afternoon,

I have the code below working well for the exception of deleting the row out of which my data was copied. Also if Column A is blank on sheet "Allan" it does not find the row(I need it to copy if row 2 is not blank.

Any help would be appreciated.

Public Sub CopyRows()
Sheets("Allan").Select
' Find the last row of data
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
' Decide if to copy based on column H
ThisValue = Cells(x, 3).Value
If ThisValue = "D" Then
Cells(x, 1).Resize(1, 33).Copy
Sheets("Finished Projects").Select
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(NextRow, 1).Select
ActiveSheet.Paste
Sheets("Allan").Select
End If
Next x
End Sub

 

[venkat1926]

I have not completely understood your requirsement

for what I guess:

"Cells(x, 1).Resize(1, 33).Copy"

instead of copy you want to "cut: is it so?

if you cut the data 1row 33 column then those cells will be blank.
If our total number of columns is only 33 then you can cut the entire row somethinglike this

cells(x,1).entirerow.cut

but there is one plroblem as you are cutting(or deleting rows there will be some problem inb looping that is in x value

so in the loop you modify this

For x = 2 To FinalRow

as follow

For x = FinalRow to 2 step -1

as you learn vba more and more you need not select the sheets. without selecting the sheets or ranges you can use "with" funcion.