rylo
Forum Guru

Hello rylo,

You have helped in the past with some coding for excel... i can't find the post were you provided me the below code to RESOLVE and RATE it...

Sub g_Copy_Paste()
Dim DatSH As Worksheet, WorkSH As Worksheet
Set datash = Sheets("Analysis")
Set WorkSH = Sheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Name = "Working"

Range("A1:D1").Value = Sheets("Analysis").Range("B2:E2").Value
datash.Activate

Set filtrng = Range(Range("A2"), Range("A2").End(xlDown)).Resize(, 5)

Range(Range("A2"), Range("A2").End(xlDown)).Resize(, 5).AdvancedFilter Action:=xlFilterCopy, copytorange:=WorkSH.Range("A1:D1"), unique:=True
With WorkSH
.Range("A:D").Sort key1:=WorkSH.Range("A1"), Header:=xlYes
.Range("H1").Value = datash.Range("A2").Value
For i = 2 To .Range("A2").End(xlDown).Row
.Range("H2").Value = "* " & .Cells(i, 2).Value & " *"


etc..