Нужно сделать чтобы в первом столбце проставлялись флажки, при нажатии в ячейке мышкой. А при нажатии кнопки помеченные строчки копировались на 4-ую страницу.
Для пометок я написал следующий код:
'CODE 1 Ставим флажок если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A7:A920")) Is Nothing Then
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If

End Sub

'CODE 2 Снимаем флажок если был двойной щелчок по ячейке
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A7:A920")) Is Nothing Then
Cancel = True 'чтобы не уйти в режим редактирования
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub


а вот с кодом для кнопки постоянно происходят ошибки. Вот он:
Private Sub CommandButton1_Click()
'
'
Application.EnableEvents = False
Sheets("Лист4").Select ' очищаем диапазон от ранее вставленных
Range("A7:D200").Select
Selection.Delete Shift:=xlUp
Sheets("Лист2").Select ' лист с выделениями
Selection.AutoFilter Field:=2, Criteria1:="a"
If ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count > 1 Then
Range("A7:D920").Select
Selection.Copy
Sheets("Лист4").Select
Range("A1").Select
ActiveSheet.Paste
End If
ActiveWorkbook.Save
ActiveSheet.ShowAllData
Application.EnableEvents = True
End Sub

помогите пожалуйста!!!! Заранее спасибо!!!

при нажатии на кнопку пишет Run-time error '1004';
Метод Select из класса Range завершен неверно

и останавливается на строчке Range("A7:D200").Select

а что не так с Range("A7:A920")):
If Not Intersect(Target, Range("A7:A920")) Is Nothing Then????

Изменил код вот так:
Private Sub CommandButton1_Click()
'

Application.EnableEvents = False
Sheets("Лист4").Select
Sheets("Лист4").Range("A7:H200").Select
Selection.Delete Shift:=xlUp
Sheets("Лист2").Select '
Sheets("Лист2").Range("A7:H920").Select
Selection.AutoFilter Field:=1, Criteria1:="a"
If ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count > 1 Then
Range("A7:H920").Select
Selection.Copy
Sheets("Лист4").Select
Sheets("Лист4").Range("A7").Select
ActiveSheet.Paste
End If
ActiveWorkbook.Save
ActiveSheet.ShowAllData
Application.EnableEvents = True
End Sub

появляется ошибка 'Application-defined or object-defined error' и останавливается на строке
ActiveSheet.ShowAllData

и как при отключать фильтр на "Лист2" и копировать ячейки с "Лист2" на "Лист4" вместе с формулами????

а как тогда сделать, как вы предлагаете.... у меня останавливается на строчке
.AutoFilter Field:=1, Criteria1:="a"

и выдает ошибку:
Named agrument not found

извините ошибся этот код:
Изменил код вот так:
Private Sub CommandButton1_Click()
'

Application.EnableEvents = False
Sheets("Лист4").Select
Sheets("Лист4").Range("A7:H200").Select
Selection.Delete Shift:=xlUp
Sheets("Лист2").Select '
Sheets("Лист2").Range("A7:H920").Select
Selection.AutoFilter Field:=1, Criteria1:="a"
If ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count > 1 Then
Range("A7:H920").Select
Selection.Copy
Sheets("Лист4").Select
Sheets("Лист4").Range("A7").Select
ActiveSheet.Paste
End If
ActiveWorkbook.Save
ActiveSheet.ShowAllData
Application.EnableEvents = True
End Sub

Выдает следующую ошибку:
"Метод ShowallData из класса Worksheet завершен неверно"

Закоментировал строчку

ActiveSheet.ShowAllData

ошибки пропали и работает. Все переносит вместе с формулами.....а каким образом выключить фильтр на "Лист2" и под перенесенным списком вставить строку Итого, чтобы в ней считались значения перенесеных столбцов "Сумма", "Сумма со скидкой 20%" и "Сумма со скидкой 30%"????????

и еще одна проблема....если помечаю подряд строчки с первой, тогда формулы переносит. Если же не помечаю подряд хоть одну строку, формулы не переносит!

а почему используя ваш код для копирования строк ничего не происходит...ниодна строчка не копируется!?????

хм....странно но все равно ничего не происходит!(

исправив на один написал ошибку:

"Run-time error '438'
Object doesen't support this property or method"

и остановка на строчке

".[A7:H920].Copy .Worksheets("Лист4").[A7]"
(

вот!

вот!

а что можете сказать насчет итоговой суммы.....потому как я даже не знаю как прописывать переменные в VBA...этот код раскопал в инете....я пишу на Embarcadero RAD Studio 2010, но начальству зачем то понадобился Excel!!!! можете помочь с этим итого и с переносом формул....которые почему то невсегда переносятся, а только если отмечаешь строчки подряд, начиная с A7 или с A8