Code does not work, copy and paste data from a sheet to another

[Jeffreyxx01]

Hi guys, I got some problems
Can someone help on my code, it highlight the lastrow in yellow.

Thanks.

Sub copydata()
Dim LastRow As Long


Sheets("Datadump").Range("E:G,S:S,AW:AW,AY:AY,BE:BE,CC:CC,CF:CV").Copy
With Worksheets("Clean")
LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Range("A1:Y" & LastRow).ClearContents
    .Range("A1").PasteSpecial xlPasteValues
End With


End Sub

 

[Jeffreyxx01]

If I put the with statement
I have the red line highlighted.

Sub CopyData()

Dim iLastRow As Long
Dim LastRow As Long




With Worksheets("RawData2").Select
[COLOR=#ff0000]LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row[/COLOR]
Range("A11:CF" & LastRow).ClearContents




Sheets("RawData").Select
iLastRow = ActiveSheet.UsedRange.Rows.Count
Sheets("RawData").Range("A2:CF" & LastRow).Copy
End With


Sheets("RawData2").Range("A11").PasteSpecial xlPasteValues
Application.CutCopyMode = False


End Sub

 

[My Aswer Is This]

Jeffrey. I think it would be best to tell us what your wanting to do.

Using With is something new in your code.

Tell us your what you want to do in total and lets see if we can sort this out.

 

[Jeffreyxx01]

Well I want to copy data from RawData into RawData2
Taking the data from RawData range A2:CF until it find lastrow ===> then copy this data into RawData2 from range A11
But before pasting the data into RawData2, I want to clear content from A11:CF until last row.

That is pretty much what I need.

 

[My Aswer Is This]

When we go back and look at your original question in post 1.

And now see what your asking for is this all the same question or has your original question changed?

 

[Jeffreyxx01]

Yes it has changed from post #1
I updated the code to another spreadsheet.

 

[Jeffreyxx01]

Is there a way to adapt the first code to my query? I actually have no idea how to fix it? #11

 

[My Aswer Is This]

In post 1 you asked a question and received a answer you said worked.
Then later you asked a different question

I believe you should make a completely new posting with you new question.