Макрос для копирования ячейки и перенос ее по условию - VBA

Формулировка задачи:

Здравствуйте! помогите создать макрос, чтобы при нажатии кнопки, "сохранить", данные из столбца "С" листа1 переносился на лист "дневная сводка" столбцы от "D-Q", при этом заносились бы в ячейки с соответствующим названием столбца, то есть чтобы происходило сравнение текста и заносилось в нужную ячейку

Решение задачи: «Макрос для копирования ячейки и перенос ее по условию»

textual
                            Листинг программы 
                        

                            Sub FindEmptyCell() 'поиск последней пустой ячейки
Worksheets("дневная сводка").Activate
Range("B6").Select
  .....................
  .....................
ActiveCell.Value = vod
ActiveCell.Offset(0, 1).Value = post
ActiveCell.Offset(0, 2).Value = vn
ActiveCell.Offset(0, 3).Value = vk
ActiveCell.Offset(0, 25).Value = mus
End Sub
                        