If your date in A and B Column then Try it
Sub RemoveDuplicate()
Dim rng As Range
Dim cell As Range
Set rng = Range("A2:A" & ActiveSheet.UsedRange.Rows.Count)
For Each cell In rng
If WorksheetFunction.CountIf(rng, cell.Value) > 1 Then
cell.EntireRow.Delete
End If
Ne
create a pivot table . check the attachment.
On Thu, Jul 21, 2011 at 10:49 PM, Raghavendra wrote:
> Hi,
>
> Can anyone let me know VBA code for the below?
>
> Input Data
>
> Names Amount
> A 100
> B 200
> C 100
> B 100
> A 100
> D 150
>
> Out put data shou
