Составление отчета

[Yakovenko]

Доброго времени суток. Нужна помощь специалистов.
Ранее для выбора уникальных значений использовал макрос. Как его изменить чтобы выбор значений производился с определенных листов и из определенных столбцов? Помогите пожалуйста.

Sub ОТЧЕТ()
Const result_sheet = "Лист1"
Dim ws As Worksheet

With Sheets(result_sheet)
.Cells.ClearContents
.Range("A1:A2") = "№ККМ"
For Each ws In Worksheets
If ws.Name <> result_sheet Then

If ws.Range("A1") <> "" Then _
ws.Range("A1").CurrentRegion.Copy .Range("A1").End(xlDown).Offset(1, 0)
End If
Next
.Rows(1).Delete
.Range("A1").CurrentRegion.Advanced Filter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:=True
.Columns("A:A").Delete
.Rows(1).Delete

.Range("A1").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End With
End Sub

[EducatedFool]

выбор значений производился с определенных листов и из определенных столбцов?

а где пример файла?
писать макросы "вслепую" весьма сложно...