Clear data only if there is data

[gheyman]

This code works perfectly only if there is data in A3 down.

how can I check to see if there is data before it performs the clear contents. if there is data, I want to clear it and then paste in the new data. If there isnt data then just paste in the new data

Sub PopoulateParts()
'1B

Dim lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Parts.Range("A3:M" & lr).Select
    Selection.ClearContents

 DataMartParts.ListObjects("dmParts").DataBodyRange.Copy Parts.Range("A3")
 
End Sub

Note I am working with someone else workbook so the code below wont work. The tab is protected .

   With Parts.Range("A3").CurrentRegion
      Cells(.Rows.Count, .Columns.Count).Select
           Selection.ClearContents
   End With

Thanks

 

[Fluff]

How about

Sub PopoulateParts()
'1B

Dim lr As Long

lr = Parts.Cells(Rows.Count, "A").End(xlUp).Row
If lr > 2 Then Parts.Range("A3:M" & lr).ClearContents
    

 DataMartParts.ListObjects("dmParts").DataBodyRange.Copy Parts.Range("A3")
 
End Sub

 

[gheyman]

Run-time error 424: Object required

 

[Fluff]

On what line?

 

[gheyman]

Code was correct. I didnt realize before the code ran the Sheet was copied over and renamed. So the code you sent me was looking for a sheet named "Parts" that no longer existed.

Thank you! what you sent works perfectly.

 

[Fluff]

Glad it's sorted & thanks for the feedback.