Help with some VBA code

[frets2011]

I found this VBA code that does exactly what i want, but it keeps deleting my headings on the summary sheet. My question is, is the highlighted code line necessary and if it is what purpose does it serve?


Sub UpdateSummary()
Dim Ws As Worksheet, LstRw As Long
LstRw = Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row

With Sheets("Summary")
.Range("A2:B" & LstRw).ClearContents
NxtRw = 2
For Each Ws In ThisWorkbook.Worksheets
If Not Ws.Name = "Template" And Not Ws.Name = "Summary" Then
.Cells(NxtRw, "A").Value = Ws.Range("A2")
.Cells(NxtRw, "B").Value = Ws.Range("B2")
NxtRw = NxtRw + 1
End If
Next Ws
End With

End Sub

 

[JamesW]

Hi there,

The highlighted row will clear the values only in the range A2 to AX (X = your last row).

Are your headers on row 2?

 

[frets2011]

No, the headings are in A1 & A2

 

[frets2011]

Sorry it's A1 & B1

 

[JamesW]

If there is nothing below the headers then the last row will be row 1, so they will be cleared.

If this is the case, you could maybe add a 1 to the LstRw variable:

LstRw = Sheets("Summary").Cells(Rows.Count, "A").End(xlUp).Row + 1