Boa tarde senhores, Criei um botão, para copiar e colar particularmente. Porém, ele tem que copiar e colar de acordo com a data de hoje e não apenas nas celulas que eu selecionei, vocês poderiam me ajudar? O código está assim:

Sub Macro9() ' ' Macro9 Macro ' ' Range("K3").Select Selection.Copy Sheets("Lucros").Select Range("C14").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Sheets("Gerenciamento de Risco").Select Range("E3").Select Application.CutCopyMode = False Selection.Copy Sheets("Lucros").Select Range("D14").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range("E14").Select Sheets("Gerenciamento de Risco").Select Range("E4").Select Application.CutCopyMode = False Selection.Copy Sheets("Lucros").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.Style = "Currency" End Sub

Desde já, Obrigado