Clearing Content from Dynamic cell range

[sahaider]

Hello All,

I would like to clear contents of a cell range whose row count is dynamic.
this is the code i have written:

Dim lastrow As Integer

'count no of filled rows first.
Set sht = Worksheets("LTE_Best Server by RSRP")

lastrow = sht.Cells(sht.Rows.Count, 2).End(xlUp).Row
Worksheets("LTE_Best Server by RSRP").Range("A2", "B" & lastrow).Select
Selection.ClearContents



but the above code is not working,

any advice would be appreciated.

Thanks

Syed

 

[VBE313]

Sub sahaider()
Dim lastRow As Long
With Sheets("LTE_Best Server by RSRP")
    lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    .Range("A2", "B" & lastRow).ClearContents
End With
End Sub

 

[Fluff]

Another option

Sub sahaider()
   With Worksheets("LTE_Best Server by RSRP")
      .Range("A2", .Range("B" & Rows.Count).End(xlUp)).ClearContents
   End With
End Sub

 

[sahaider]

Thanks Fluff and VBE313!

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[sahaider]

Hello,

Thanks for the help previously.

Now i am trying to use the getopen application to open a csv file, copy its selected range in the background and paste it in another worksheet.

This CSV will have dynamic range which starts at A4 but ends in B(X), where X is dynamic for different csv.

This is the code:

FileToOpen = Application.GetOpenFilename(Title:="Browse for the LTE Best Server File", FileFilter:="CSV Files(*.csv),*csv*")
If FileToOpen <> False Then
Set Openbook = Application.Workbooks.Open(FileToOpen)

Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy


ThisWorkbook.Worksheets("LTE_Best Server by RSRP").Range("A2").PasteSpecial xlPasteValues
Openbook.Close False



I am getting error in line: Openbook.Sheets(1).Range("A4", Range("B" & Rows.Count).End(xlUp)).Copy

Any help appreciated.

Thanks

 

[Fluff]

This is know a completely different question, so you will need to start a new thread. Thanks.