Skip to content

Instantly share code, notes, and snippets.

@harsha547
Created June 8, 2017 16:16
Show Gist options
  • Select an option

  • Save harsha547/3c256fc09d1e1ee576c844c020426a80 to your computer and use it in GitHub Desktop.

Select an option

Save harsha547/3c256fc09d1e1ee576c844c020426a80 to your computer and use it in GitHub Desktop.
Sub RemoveHeader()
Dim rg As Range
Set rg = shTransactions.Range("B3").CurrentRegion
Dim rgNew As Range
Set rgNew = rg.Resize(rg.Rows.Count-1).Offset(1)
Dim i As Long
For i = 2 To rg.rows.count
Debug.Print rg.cells(i,5).Value
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment