Code is stuck on LastRow formula

[Jeffreyxx01]

Hello guys,

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.

Thanks for the help.

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

 

[steve the fish]

Making a few changes to your example you could do it like this:

Dim iLastRow As Long
Dim LastRow As Long

With Worksheets("RawData2")
    LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If LastRow > 10 Then .Range("A11:CF" & LastRow).ClearContents
    With Sheets("RawData")
        iLastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        .Range("A2:CF" & LastRow).Copy
    End With
    .Range("A11").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

 

[Jeffreyxx01]

Thank you very much,

It does work now.