VBA duplicates

[3badi]

Hi I am new in using VBA

I need help in this:

Sub duplicate3()
'
' duplicate3 Macro
'


'
Selection.CurrentRegion.Select
ActiveSheet.Range("$A$1:$G$356").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
7), Header:=xlNo
End Sub

How can I make the range dynamic so it changes regardless of the data

Thank you

 

[Fluff]

Hi & welcome to MrExcel

How about

Sub badi()
   Dim i As Long
   Dim Ary As Variant
   
   With Range("A1").CurrentRegion
      ReDim Ary(1 To .Columns.Count)
      For i = 1 To .Columns.Count
         Ary(i) = i
      Next i
      .RemoveDuplicates Ary, xlYes
   End With
End Sub

 

[3badi]

Can you please write it as a ready code because I did not get it completely

Thanks

 

[Fluff]

The code is ready to run. It will delete any rows where the entire row is duplicated.

 

[3badi]

Alright what about here how can I make it work in here I need it to remove the duplicates and fit with any range

Sub append_data()
'
' append_data Macro
'


'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Selection.CurrentRegion.Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Users\abdullah.alzadjali\Documents\Oman VBA\VBA\Orders.xlsx"
Range("A1").Select
Selection.End(xlDown).Select
'range("A3267").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.CurrentRegion.Select
Selection.CurrentRegion.Select
Selection.CurrentRegion.Select

ActiveWindow.Close savechanges:=True
Application.CutCopyMode = False
Range("A1").Select
End Sub

by the way I need the code to be put before the bold area

Thanks

 

[Fluff]

How about

Sub append_data()
'
' append_data Macro
'

   Dim i As Long
   Dim Ary As Variant
'
   Rows("1:1").Select
   Selection.Delete Shift:=xlUp
   Selection.CurrentRegion.Select
   Selection.Copy
   Workbooks.Open FileName:= _
   "C:\Users\abdullah.alzadjali\Documents\Oman VBA\VBA\Orders.xlsx"
   Range("A1").Select
   Selection.End(xlDown).Select
   'range("A3267").Select
   ActiveCell.Offset(1, 0).Range("A1").Select
   Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   With Range("A1").CurrentRegion
      ReDim Ary(1 To .Columns.count)
      For i = 1 To .Columns.count
         Ary(i) = i
      Next i
      .RemoveDuplicates Ary, xlYes
   End With
   ActiveWindow.Close savechanges:=True
   Application.CutCopyMode = False
   Range("A1").Select
End Sub

 

[3badi]

It gives an error when I run it I do not why can you check it please?

Thanks

 

[Fluff]

What is the error number & message, also what line is highlighted when you click debug?